Commit d3a443b3 authored by simonm's avatar simonm
Browse files

[project @ 1999-02-18 17:55:40 by simonm]

Eliminate an unnecessary pattern match on J#.
parent 89300e49
......@@ -114,7 +114,7 @@ hGetStringBuffer fname =
return (StringBuffer a# read# 0# 0#)
#else
openFile fname ReadMode >>= \ hndl ->
hFileSize hndl >>= \ len@(J# _ _ d#) ->
hFileSize hndl >>= \ len ->
let len_i = fromInteger len in
-- Allocate an array for system call to store its bytes into.
-- ToDo: make it robust
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment