[commit: ghc] master: Fix whitespace in codeGen/CgParallel.hs (506d37b)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/506d37b012843e7431cc36a2ed0a07b297831529

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

commit 506d37b012843e7431cc36a2ed0a07b297831529
Author: Ian Lynagh <igloo at earth.li>
Date:   Wed Jun 20 15:31:06 2012 +0100

    Fix whitespace in codeGen/CgParallel.hs

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

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

diff --git a/compiler/codeGen/CgParallel.hs b/compiler/codeGen/CgParallel.hs
index 2804104..30771f1 100644
--- a/compiler/codeGen/CgParallel.hs
+++ b/compiler/codeGen/CgParallel.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 CgParallel(
-	staticGranHdr,staticParHdr,
-	granFetchAndReschedule, granYield,
-	doGranAllocate
+        staticGranHdr,staticParHdr,
+        granFetchAndReschedule, granYield,
+        doGranAllocate
   ) where
 
 import CgMonad
@@ -34,7 +27,7 @@ staticParHdr :: [CmmLit]
 staticParHdr = []
 
 --------------------------------------------------------
---		GranSim stuff
+--              GranSim stuff
 --------------------------------------------------------
 
 staticGranHdr :: [CmmLit]
@@ -45,14 +38,14 @@ doGranAllocate :: CmmExpr -> Code
 -- macro DO_GRAN_ALLOCATE
 doGranAllocate _hp
   | not opt_GranMacros = nopC
-  | otherwise	       = panic "doGranAllocate"
+  | otherwise          = panic "doGranAllocate"
 
 
 
 -------------------------
 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)
@@ -65,15 +58,15 @@ granFetchAndReschedule regs node_reqd
 
 fetch :: FCode ()
 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 :: StgWord -> Bool -> Code
 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)])
     
 
 -------------------------
@@ -95,13 +88,13 @@ 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 :: StgWord -> Code
 yield _liveness = panic "granYield"
-	-- Was : absC (CMacroStmt GRAN_YIELD 
+        -- Was : absC (CMacroStmt GRAN_YIELD
         --                  [mkIntCLit (I# (word2Int# liveness_mask))])