diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-01-07 07:12:36 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-01-07 07:12:36 -0600 |
| commit | d24aa8f3031bf2abaa50fa76407d1f964576f996 (patch) | |
| tree | 98d710b160c2714b58ccb544b350f27f90f36dd0 /compiler/llvmGen/LlvmMangler.hs | |
| parent | 32002b3dfdfd6a3c6a1a1eb52d8a257b42e17e51 (diff) | |
| download | haskell-d24aa8f3031bf2abaa50fa76407d1f964576f996.tar.gz | |
Remove trailing whitespace.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/llvmGen/LlvmMangler.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmMangler.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/llvmGen/LlvmMangler.hs b/compiler/llvmGen/LlvmMangler.hs index 2e29cfbd0c..7cae59ce81 100644 --- a/compiler/llvmGen/LlvmMangler.hs +++ b/compiler/llvmGen/LlvmMangler.hs @@ -55,7 +55,7 @@ llvmFixupAsm dflags f1 f2 = {-# SCC "llvm_mangler" #-} do mapM_ (writeSection w) fixed hClose w return () - + rewriteSymType :: B.ByteString -> B.ByteString rewriteSymType s = foldl (\s' (typeFunc,typeObj)->replace typeFunc typeObj s') s types @@ -86,7 +86,7 @@ readSections r w = go B.empty [] [] writeSection w (hdr, cts) >> return ss case e_l of - Right l | l == syntaxUnified + Right l | l == syntaxUnified -> finishSection >>= \ss' -> writeSection w (l, B.empty) >> go B.empty ss' tys | any (`B.isPrefixOf` l) [secStmt, textStmt, dataStmt] @@ -167,4 +167,3 @@ readInt :: B.ByteString -> Int readInt str | B.all isDigit str = (read . B.unpack) str | otherwise = error $ "LLvmMangler Cannot read " ++ show str ++ " as it's not an Int" - |