Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix silly mistake in last commit
  • Loading branch information
David Terei committed Jun 25, 2011
1 parent 2f8ef8f commit 66878b1
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions compiler/llvmGen/LlvmMangler.hs
Expand Up @@ -95,11 +95,11 @@ fixTables r w m = do
getFun :: Handle -> IO B.ByteString
getFun r = go [] >>= return . B.intercalate newLine
where go ls = do
l <- (try (B.hGetLine r))::IO (Either IOError B.ByteString)
case l of
Right l' | B.null l' -> (return B.empty : reverse ls)
| otherwise -> go (l':ls)
Left _ -> return []
l <- (try (B.hGetLine r))::IO (Either IOError B.ByteString)
case l of
Right l' | B.null l' -> return (B.empty : reverse ls)
| otherwise -> go (l':ls)
Left _ -> return []

{-|
Mac OS X requires that the stack be 16 byte aligned when making a function
Expand Down

0 comments on commit 66878b1

Please sign in to comment.