Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/66878b11d22c05d65da45b8964226109b8313271 >--------------------------------------------------------------- commit 66878b11d22c05d65da45b8964226109b8313271 Author: David Terei <[email protected]> Date: Sat Jun 25 11:38:39 2011 -0700 Fix silly mistake in last commit >--------------------------------------------------------------- compiler/llvmGen/LlvmMangler.hs | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/llvmGen/LlvmMangler.hs b/compiler/llvmGen/LlvmMangler.hs index 4f61a93..31d23b3 100644 --- a/compiler/llvmGen/LlvmMangler.hs +++ b/compiler/llvmGen/LlvmMangler.hs @@ -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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
