diff options
| author | simonpj <unknown> | 1997-03-14 08:11:17 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1997-03-14 08:11:17 +0000 |
| commit | 1fb1ab5d53a09607e7f6d2450806760688396387 (patch) | |
| tree | b437d55fe6dc77a4bb21143be31188b9985793f9 /ghc/compiler/stranal/SaLib.lhs | |
| parent | fa6fb09e2e4e6918eebc79ed187f32c88817c9db (diff) | |
| download | haskell-1fb1ab5d53a09607e7f6d2450806760688396387.tar.gz | |
[project @ 1997-03-14 07:52:06 by simonpj]
Major update to more-or-less 2.02
Diffstat (limited to 'ghc/compiler/stranal/SaLib.lhs')
| -rw-r--r-- | ghc/compiler/stranal/SaLib.lhs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/ghc/compiler/stranal/SaLib.lhs b/ghc/compiler/stranal/SaLib.lhs index 786333aad0..3f5c7fa93f 100644 --- a/ghc/compiler/stranal/SaLib.lhs +++ b/ghc/compiler/stranal/SaLib.lhs @@ -29,7 +29,7 @@ import IdInfo ( StrictnessInfo(..) ) import Demand ( Demand{-instance Outputable-} ) import Outputable ( Outputable(..){-instance * []-} ) import PprType ( GenType{-instance Outputable-} ) -import Pretty ( ppStr, ppCat ) +import Pretty ( ppPStr, ppCat, ppChar ) \end{code} %************************************************************************ @@ -74,15 +74,15 @@ data AbsVal -- argument if the Demand so indicates. instance Outputable AbsVal where - ppr sty AbsTop = ppStr "AbsTop" - ppr sty AbsBot = ppStr "AbsBot" - ppr sty (AbsProd prod) = ppCat [ppStr "AbsProd", ppr sty prod] + ppr sty AbsTop = ppPStr SLIT("AbsTop") + ppr sty AbsBot = ppPStr SLIT("AbsBot") + ppr sty (AbsProd prod) = ppCat [ppPStr SLIT("AbsProd"), ppr sty prod] ppr sty (AbsFun arg body env) - = ppCat [ppStr "AbsFun{", ppr sty arg, - ppStr "???", -- ppStr "}{env:", ppr sty (keysFM env `zip` eltsFM env), - ppStr "}" ] + = ppCat [ppPStr SLIT("AbsFun{"), ppr sty arg, + ppPStr SLIT("???"), -- ppStr "}{env:", ppr sty (keysFM env `zip` eltsFM env), + ppChar '}' ] ppr sty (AbsApproxFun demand val) - = ppCat [ppStr "AbsApprox ", ppr sty demand, ppStr "", ppr sty val ] + = ppCat [ppPStr SLIT("AbsApprox "), ppr sty demand, ppr sty val ] \end{code} %----------- |