X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FMachRegs.lhs;h=db21aaa28a40a56e5b32b7ff4a5bfd45c336c7ce;hb=fda89b29c748c6cd2fe1fdb477d5c0e8f7d32b90;hp=13897a85eba58404b4ca2e68a6488ef36609d2d2;hpb=5f34bb74bf3c7e051bce8ad343ac4bbbc11f62cd;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index 13897a8..db21aaa 100644
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -96,7 +96,6 @@ data Imm
   | LO Imm		    -- Possible restrictions...
   | HI Imm
   ,)
-
 strImmLit s = ImmLit (text s)
 dblImmLit r
   = strImmLit (
@@ -296,7 +295,6 @@ data Reg
   | UnmappedReg Unique PrimRep	-- One of an infinite supply of registers,
 				-- always mapped to one of the earlier
 				-- two (?)  before we're done.
-
 mkReg :: Unique -> PrimRep -> Reg
 mkReg = UnmappedReg