[commit: ghc] master: Code formatting cleanup. (90f688e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/90f688e892427b1894b6aacb1f8de8d2e41ecb56/ghc

>---------------------------------------------------------------

commit 90f688e892427b1894b6aacb1f8de8d2e41ecb56
Author: Geoffrey Mainland <mainland at apeiron.net>
Date:   Thu Jan 28 10:34:53 2016 -0500

    Code formatting cleanup.


>---------------------------------------------------------------

90f688e892427b1894b6aacb1f8de8d2e41ecb56
 utils/genapply/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs
index 50904ea..58bee53 100644
--- a/utils/genapply/Main.hs
+++ b/utils/genapply/Main.hs
@@ -157,10 +157,10 @@ mkJump :: RegStatus -- Registerised status
        -> [ArgRep]  -- Jump arguments
        -> Doc
 mkJump regstatus jump live args =
-    text "jump " <> jump <+> brackets (hcat (punctuate comma (map text regs)))
+    text "jump" <+> jump <+> brackets (hcat (punctuate comma (map text regs)))
   where
-   (reg_locs, _, _) = assignRegs regstatus 0 args
-   regs             = (nub . sort) (live ++ map fst reg_locs)
+    (reg_locs, _, _) = assignRegs regstatus 0 args
+    regs             = (nub . sort) (live ++ map fst reg_locs)
 
 -- make a ptr/non-ptr bitmap from a list of argument types
 mkBitmap :: [ArgRep] -> Word32