From: simonm <unknown>
Date: Fri, 15 Jan 1999 15:06:20 +0000 (+0000)
Subject: [project @ 1999-01-15 15:06:20 by simonm]
X-Git-Tag: Approx_2487_patches~88
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a31a57721366fd5abd99129c81fcd3c7e1072828;p=ghc-hetmet.git

[project @ 1999-01-15 15:06:20 by simonm]
Remove punning.
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index c92f943..c73df67 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -112,20 +112,18 @@ noIdInfo = IdInfo {
 
 \begin{code}
 ppIdInfo :: IdInfo -> SDoc
-ppIdInfo (IdInfo {arityInfo, 
-		  demandInfo,
-		  specInfo,
-		  strictnessInfo, 
-		  unfoldingInfo,
-		  updateInfo, 
-		  cafInfo,
-		  inlinePragInfo})
+ppIdInfo (IdInfo {arityInfo      = a,
+		  demandInfo	 = d,
+		  strictnessInfo = s,
+		  updateInfo 	 = u,
+		  cafInfo	 = c
+		  }) 
   = hsep [
-	    ppArityInfo arityInfo,
-	    ppUpdateInfo updateInfo,
-	    ppStrictnessInfo strictnessInfo,
-	    ppr demandInfo,
-	    ppCafInfo cafInfo
+	    ppArityInfo a,
+	    ppUpdateInfo u,
+	    ppStrictnessInfo s,
+	    ppr d,
+	    ppCafInfo c
 	-- Inline pragma printed out with all binders; see PprCore.pprIdBndr
 	]
 \end{code}