X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;fp=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;h=331b62369afa2b36a96beca8c82624c36326c0f9;hb=d3f613149e033256620ef26e713d67a0f896f0df;hp=fff708237b2f4e825eb876f1d7df9a0213a0df97;hpb=3446ed6c394f83a8e1a9e95c1a6712c21031ea90;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index fff7082..331b623 100644
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -14,12 +14,9 @@ import CoreLint		( showPass, endPass )
 import CoreUtils	( exprType )
 import Id		( Id, idType, idNewStrictness, idArity, isOneShotLambda,
 			  setIdNewStrictness, zapIdNewStrictness, idInlinePragma, mkWorkerId,
-			  setIdWorkerInfo, idCprInfo, setInlinePragma )
+			  setIdWorkerInfo, setInlinePragma )
 import Type		( Type )
-import IdInfo		( mkStrictnessInfo, noStrictnessInfo, StrictnessInfo(..),
-			  CprInfo(..), InlinePragInfo(..), isNeverInlinePrag,
-			  WorkerInfo(..)
-			)
+import IdInfo		( InlinePragInfo(..), isNeverInlinePrag, WorkerInfo(..)	)
 import NewDemand        ( Demand(..), StrictSig(..), DmdType(..), DmdResult(..), 
 			  mkTopDmdType, isBotRes, returnsCPR
 			)
@@ -297,9 +294,9 @@ worthSplitting (StrictSig (DmdType _ ds res))
 	-- [We don't do reboxing now, but in general it's better to pass 
 	--  an unboxed thing to f, and have it reboxed in the error cases....]
   where
-    worth_it Abs	  = True	-- Absent arg
-    worth_it (Seq _ _ ds) = True	-- Arg to evaluate
-    worth_it other	  = False
+    worth_it Abs	= True	-- Absent arg
+    worth_it (Seq _ ds) = True	-- Arg to evaluate
+    worth_it other	= False
 \end{code}
 
 
@@ -324,5 +321,3 @@ mkWrapper fun_ty (StrictSig (DmdType _ demands res_info))
 
 noOneShotInfo = repeat False
 \end{code}
-
-