Commit a31a5772 authored by simonm's avatar simonm
Browse files

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

Remove punning.
parent a92b6e47
......@@ -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}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment