[commit: ghc] ghc-8.0: Code formatting cleanup. (28ee6ca)

[git at git.haskell.org]

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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/28ee6ca5ba18b3e451f0377d77c7e1ef1cfb136a/ghc

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

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

    Code formatting cleanup.
    
    (cherry picked from commit 90f688e892427b1894b6aacb1f8de8d2e41ecb56)


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

28ee6ca5ba18b3e451f0377d77c7e1ef1cfb136a
 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 97028b3..10fc1a6 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