From a31a57721366fd5abd99129c81fcd3c7e1072828 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 15 Jan 1999 15:06:20 +0000
Subject: [PATCH] [project @ 1999-01-15 15:06:20 by simonm] Remove punning.
---
ghc/compiler/basicTypes/IdInfo.lhs | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index c92f94318a67..c73df67c1948 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}
--
GitLab