From 6bb893a6beffdf2a8660523eb6a469223eae9361 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 04:53:45 +0000
Subject: [PATCH] [project @ 1997-05-26 04:53:45 by sof] Use
 IdInfo.ppStrictness

---
 ghc/compiler/coreSyn/PprCore.lhs |   11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

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)]
-- 
1.7.10.4