From: sof <unknown>
Date: Mon, 26 May 1997 04:53:45 +0000 (+0000)
Subject: [project @ 1997-05-26 04:53:45 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~481
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6bb893a6beffdf2a8660523eb6a469223eae9361;p=ghc-hetmet.git

[project @ 1997-05-26 04:53:45 by sof]
Use IdInfo.ppStrictness
---

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index e0dcb03..c28c91a 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -31,13 +31,12 @@ import Id		( idType, getIdInfo, getIdStrictness, isTupleCon,
 			  nullIdEnv, SYN_IE(DataCon), GenId{-instances-},
 			  SYN_IE(Id)
 			) 
-import IdInfo		( ppIdInfo, StrictnessInfo(..) )
+import IdInfo		( ppIdInfo, ppStrictnessInfo )
 import Literal		( Literal{-instances-} )
 import Name		( OccName, parenInCode )
 import Outputable	-- quite a few things
 import PprEnv
 import PprType		( pprParendGenType, pprTyVarBndr, GenType{-instances-}, GenTyVar{-instance-} )
-import PprStyle		( PprStyle(..), ifaceStyle )
 import Pretty
 import PrimOp		( PrimOp{-instances-} )
 import TyVar		( GenTyVar{-instances-} )
@@ -434,13 +433,7 @@ pprBigCoreBinder sty binder
 pprBabyCoreBinder sty binder
   = hsep [ppr sty binder, pp_strictness]
   where
-    pp_strictness
-      = case (getIdStrictness binder) of
-	  NoStrictnessInfo    -> empty
-	  BottomGuaranteed    -> ptext SLIT("{- _!_ -}")
-	  StrictnessInfo xx _ ->
-		panic "PprCore:pp_strictness:StrictnessInfo:ToDo"
-		-- text ("{- " ++ (showList xx "") ++ " -}")
+    pp_strictness = ppStrictnessInfo sty (getIdStrictness binder)
 
 pprTypedCoreBinder sty binder
   = hcat [ppr sty binder, ppDcolon, pprParendGenType sty (idType binder)]