[commit: ghc] ghc-lwc2: Removed tabs from tab-free files (fd38acf)

[Sivaramakrishnan Krishnamoorthy Chandrasekaran]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : ghc-lwc2

http://hackage.haskell.org/trac/ghc/changeset/fd38acf713b2b1f167ef18eb3a781bc7d5d8b516

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

commit fd38acf713b2b1f167ef18eb3a781bc7d5d8b516
Author: KC Sivaramakrishnan <chandras at cs.purdue.edu>
Date:   Fri Mar 1 00:58:29 2013 -0500

    Removed tabs from tab-free files

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

 libraries/base/LwConc/Substrate.hs | 12 ++++++------
 rts/StgMiscClosures.cmm            | 10 +++++-----
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/libraries/base/LwConc/Substrate.hs b/libraries/base/LwConc/Substrate.hs
index af12ed7..dab0b48 100644
--- a/libraries/base/LwConc/Substrate.hs
+++ b/libraries/base/LwConc/Substrate.hs
@@ -428,9 +428,9 @@ yieldControlActionRts sc = Exception.catch (atomically $ do
       otherwise -> error "yieldControlAction: Impossible status"
   switch <- getYieldControlActionSCont sc
   switch) (\e -> do {
-											hPutStrLn stderr ("ERROR:" ++ show (e::IOException));
-											error "LwConc.Substrate.yieldControlActionRTS"
-											})
+                      hPutStrLn stderr ("ERROR:" ++ show (e::IOException));
+                      error "LwConc.Substrate.yieldControlActionRTS"
+                      })
 
 -----------------------------------------------------------------------------------
 -- scheduleSContAction and friends..
@@ -463,9 +463,9 @@ scheduleSContActionRts sc = Exception.catch (atomically $ do
   setSContStatus sc $ SContSwitched Yielded
   unblock <- getScheduleSContActionSCont sc
   unblock sc) (\e -> do {
-											hPutStrLn stderr ("ERROR:" ++ show (e::IOException));
-											error "LwConc.Substrate.scheduleSContActionRTS"
-											})
+                      hPutStrLn stderr ("ERROR:" ++ show (e::IOException));
+                      error "LwConc.Substrate.scheduleSContActionRTS"
+                      })
 
 
 -----------------------------------------------------------------------------------
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm
index fe8a25b..c0eadad 100644
--- a/rts/StgMiscClosures.cmm
+++ b/rts/StgMiscClosures.cmm
@@ -308,7 +308,7 @@ INFO_TABLE(stg_BLACKHOLE,1,0,BLACKHOLE,"BLACKHOLE","BLACKHOLE")
 {
     W_ r, info, owner, bd;
     P_ p, bq, msg;
-		gcptr trec;
+    gcptr trec;
 
     TICK_ENT_DYN_IND(); /* tick */
 
@@ -333,10 +333,10 @@ retry:
         trec = StgTSO_trec (CurrentTSO);
         if (trec != NO_TREC && StgTSO_is_upcall_thread (CurrentTSO) != 0::I32) {
           (p) = ccall suspendAllComputation (MyCapability () "ptr", node "ptr");
-					if (p != 0) {
-						goto retry;
-					}
-				}
+          if (p != 0) {
+            goto retry;
+          }
+        }
 
         ("ptr" msg) = ccall allocate(MyCapability() "ptr",
                                      BYTES_TO_WDS(SIZEOF_MessageBlackHole));