Detab modules with tabs on 5 lines or fewer

2 files changed, 11 insertions, 25 deletions

diff --git a/compiler/nativeGen/PprBase.hs b/compiler/nativeGen/PprBase.hs
index a9095c0e8b..275d329d2a 100644
--- a/compiler/nativeGen/PprBase.hs
+++ b/compiler/nativeGen/PprBase.hs
@@ -6,18 +6,11 @@
 --
 -----------------------------------------------------------------------------
 
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
 module PprBase (
-	castFloatToWord8Array,
-	castDoubleToWord8Array,
-	floatToBytes,
-	doubleToBytes
+        castFloatToWord8Array,
+        castDoubleToWord8Array,
+        floatToBytes,
+        doubleToBytes
 )
 
 where
@@ -41,7 +34,7 @@ castDoubleToWord8Array :: STUArray s Int Double -> ST s (STUArray s Int Word8)
 castDoubleToWord8Array = castSTUArray
 
 -- floatToBytes and doubleToBytes convert to the host's byte
--- order.  Providing that we're not cross-compiling for a 
+-- order.  Providing that we're not cross-compiling for a
 -- target with the opposite endianness, this should work ok
 -- on all targets.
 
diff --git a/compiler/nativeGen/SPARC/AddrMode.hs b/compiler/nativeGen/SPARC/AddrMode.hs
index f00458af81..bf4d480005 100644
--- a/compiler/nativeGen/SPARC/AddrMode.hs
+++ b/compiler/nativeGen/SPARC/AddrMode.hs
@@ -1,14 +1,7 @@
 
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
 module SPARC.AddrMode (
-	AddrMode(..),
-	addrOffset
+        AddrMode(..),
+        addrOffset
 )
 
 where
@@ -20,11 +13,11 @@ import Reg
 -- addressing modes ------------------------------------------------------------
 
 -- | Represents a memory address in an instruction.
---	Being a RISC machine, the SPARC addressing modes are very regular.
+--      Being a RISC machine, the SPARC addressing modes are very regular.
 --
 data AddrMode
-	= AddrRegReg	Reg Reg		-- addr = r1 + r2
-	| AddrRegImm	Reg Imm		-- addr = r1 + imm
+        = AddrRegReg    Reg Reg         -- addr = r1 + r2
+        | AddrRegImm    Reg Imm         -- addr = r1 + imm
 
 
 -- | Add an integer offset to the address in an AddrMode.
@@ -45,5 +38,5 @@ addrOffset addr off
       AddrRegReg r (RegReal (RealRegSingle 0))
        | fits13Bits off -> Just (AddrRegImm r (ImmInt off))
        | otherwise     -> Nothing
-       
+
       _ -> Nothing