Code formatting cleanup.
authorGeoffrey Mainland <mainland@apeiron.net>
Thu, 28 Jan 2016 15:34:53 +0000 (10:34 -0500)
committerGeoffrey Mainland <mainland@apeiron.net>
Sun, 31 Jan 2016 18:01:31 +0000 (13:01 -0500)
utils/genapply/Main.hs

index 50904ea..58bee53 100644 (file)
@@ -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