[commit: ghc] master: Fix whitespace in codeGen/StgCmmGran.hs (05bac9f)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/05bac9f8ace3c90b3386b6138d4dbf2616ed2645

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

commit 05bac9f8ace3c90b3386b6138d4dbf2616ed2645
Author: Ian Lynagh <igloo at earth.li>
Date:   Wed Jun 20 15:43:20 2012 +0100

    Fix whitespace in codeGen/StgCmmGran.hs

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

 compiler/codeGen/StgCmmGran.hs |   41 ++++++++++++++++-----------------------
 1 files changed, 17 insertions(+), 24 deletions(-)

diff --git a/compiler/codeGen/StgCmmGran.hs b/compiler/codeGen/StgCmmGran.hs
index 232c7c6..2abca3f 100644
--- a/compiler/codeGen/StgCmmGran.hs
+++ b/compiler/codeGen/StgCmmGran.hs
@@ -3,22 +3,15 @@
 -- (c) The University of Glasgow -2006
 --
 -- Code generation relaed to GpH
--- 	(a) parallel
---	(b) GranSim
+--      (a) parallel
+--      (b) GranSim
 --
 -----------------------------------------------------------------------------
 
-{-# 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 StgCmmGran (
-	staticGranHdr,staticParHdr,
-	granThunk, granYield,
-	doGranAllocate
+        staticGranHdr,staticParHdr,
+        granThunk, granYield,
+        doGranAllocate
   ) where
 
 -- This entire module consists of no-op stubs at the moment
@@ -61,7 +54,7 @@ doGranAllocate :: CmmExpr -> Code
 -- macro DO_GRAN_ALLOCATE
 doGranAllocate hp 
   | not opt_GranMacros = nopC
-  | otherwise	       = panic "doGranAllocate"
+  | otherwise          = panic "doGranAllocate"
 
 
 
@@ -71,11 +64,11 @@ granThunk :: Bool -> FCode ()
 -- (we prefer fetchAndReschedule-style context switches to yield ones)
 granThunk node_points 
   | node_points = granFetchAndReschedule [] node_points 
-  | otherwise   = granYield 	         [] node_points
+  | otherwise   = granYield              [] node_points
 
 granFetchAndReschedule :: [(Id,GlobalReg)]  -- Live registers
-		       -> Bool           	-- Node reqd?
-		       -> Code
+                       -> Bool                  -- Node reqd?
+                       -> Code
 -- Emit code for simulating a fetch and then reschedule.
 granFetchAndReschedule regs node_reqd
   | opt_GranMacros && (node `elem` map snd regs || node_reqd)
@@ -87,14 +80,14 @@ granFetchAndReschedule regs node_reqd
     liveness = mkRegLiveness regs 0 0
 
 fetch = panic "granFetch"
-	-- Was: absC (CMacroStmt GRAN_FETCH [])
-	--HWL: generate GRAN_FETCH macro for GrAnSim
- 	--     currently GRAN_FETCH and GRAN_FETCH_AND_RESCHEDULE are miai
+        -- Was: absC (CMacroStmt GRAN_FETCH [])
+        --HWL: generate GRAN_FETCH macro for GrAnSim
+        --     currently GRAN_FETCH and GRAN_FETCH_AND_RESCHEDULE are miai
 
 reschedule liveness node_reqd = panic "granReschedule"
-	-- Was: absC  (CMacroStmt GRAN_RESCHEDULE [
-  	--                mkIntCLit (I# (word2Int# liveness_mask)), 
-    	--		  mkIntCLit (if node_reqd then 1 else 0)])
+        -- Was: absC  (CMacroStmt GRAN_RESCHEDULE [
+        --                mkIntCLit (I# (word2Int# liveness_mask)),
+        --                mkIntCLit (if node_reqd then 1 else 0)])
     
 
 -------------------------
@@ -116,12 +109,12 @@ granYield :: [(Id,GlobalReg)]   -- Live registers
 
 granYield regs node_reqd
   | opt_GranMacros && node_reqd = yield liveness
-  | otherwise			= nopC
+  | otherwise                   = nopC
   where
      liveness = mkRegLiveness regs 0 0
 
 yield liveness = panic "granYield"
-	-- Was : absC (CMacroStmt GRAN_YIELD 
+        -- Was : absC (CMacroStmt GRAN_YIELD
         --                  [mkIntCLit (I# (word2Int# liveness_mask))])
 
 -}