From: Ian Lynagh <igloo@earth.li>
Date: Thu, 21 Oct 2010 13:55:51 +0000 (+0000)
Subject: Whitespace only
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=00a05a5c09b097e3afa8d21058a3a4d8ed410ad4;p=ghc-hetmet.git

Whitespace only
---

diff --git a/compiler/nativeGen/RegAlloc/Graph/Spill.hs b/compiler/nativeGen/RegAlloc/Graph/Spill.hs
index d82e8a8..2ce028f 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Spill.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Spill.hs
@@ -292,12 +292,12 @@ type SpillM a	= State SpillS a
 
 newUnique :: SpillM Unique
 newUnique
- = do	us	<- gets stateUS
- 	case splitUniqSupply us of
-	 (us1, us2)
-	  -> do let uniq = uniqFromSupply us1
-	  	modify $ \s -> s { stateUS = us2 }
-		return uniq
+ = do   us      <- gets stateUS
+        case splitUniqSupply us of
+         (us1, us2)
+          -> do let uniq = uniqFromSupply us1
+                modify $ \s -> s { stateUS = us2 }
+                return uniq
 
 accSpillSL (r1, s1, l1) (_, s2, l2)
 	= (r1, s1 + s2, l1 + l2)