X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplStg%2FSatStgRhs.lhs;fp=ghc%2Fcompiler%2FsimplStg%2FSatStgRhs.lhs;h=725bf48e654e608b566222bd42e1a4a78013fd2f;hb=26741ec416bae2c502ef00a2ba0e79050a32cb67;hp=9feec285b53ed87ca97aa4d7f0284cbff678f748;hpb=ae45ff0e9831a0dc862a5d68d03e355d7e323c62;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplStg/SatStgRhs.lhs b/ghc/compiler/simplStg/SatStgRhs.lhs
index 9feec28..725bf48 100644
--- a/ghc/compiler/simplStg/SatStgRhs.lhs
+++ b/ghc/compiler/simplStg/SatStgRhs.lhs
@@ -67,12 +67,12 @@ import StgSyn
 import CostCentre	( isCafCC, subsumedCosts, useCurrentCostCentre )
 import Id		( idType, getIdArity, addIdArity, mkSysLocal,
 			  nullIdEnv, addOneToIdEnv, growIdEnvList,
-			  lookupIdEnv, IdEnv(..)
+			  lookupIdEnv, SYN_IE(IdEnv)
 			)
 import IdInfo		( arityMaybe )
 import SrcLoc		( mkUnknownSrcLoc )
 import Type		( splitSigmaTy, splitForAllTy, splitFunTyExpandingDicts )
-import UniqSupply	( returnUs, thenUs, mapUs, getUnique, UniqSM(..) )
+import UniqSupply	( returnUs, thenUs, mapUs, getUnique, SYN_IE(UniqSM) )
 import Util		( panic, assertPanic )
 
 type Count = Int
@@ -292,10 +292,10 @@ saturate other 		    _  = panic "SatStgRhs: saturate"
 
 \begin{code}
 lookupArgs :: SatEnv -> [StgArg] -> [StgArg]
-lookupArgs env args = map do args
+lookupArgs env args = map doo args
   where
-    do    (StgVarArg v)  = StgVarArg (lookupVar env v)
-    do a@(StgLitArg lit) = a
+    doo    (StgVarArg v)  = StgVarArg (lookupVar env v)
+    doo a@(StgLitArg lit) = a
 
 lookupVar :: SatEnv -> Id -> Id
 lookupVar env v = case lookupIdEnv env v of