diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-22 11:47:13 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-22 11:47:13 +0000 |
| commit | f5d4c3239e57b0396672ffc302961f84398d730e (patch) | |
| tree | 5fed42600298dc2d2d29f704947816ed802bb6d3 /compiler/cprAnalysis | |
| parent | 22491570f2e5fe37559f79b7eb637a6576863963 (diff) | |
| download | haskell-f5d4c3239e57b0396672ffc302961f84398d730e.tar.gz | |
Change the last few (F)SLIT's into (f)sLit's
Diffstat (limited to 'compiler/cprAnalysis')
| -rw-r--r-- | compiler/cprAnalysis/CprAnalyse.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cprAnalysis/CprAnalyse.lhs b/compiler/cprAnalysis/CprAnalyse.lhs index d6525c547c..8f3c343568 100644 --- a/compiler/cprAnalysis/CprAnalyse.lhs +++ b/compiler/cprAnalysis/CprAnalyse.lhs @@ -99,10 +99,10 @@ data AbsVal = Top -- Not a constructed product -- For pretty debugging instance Outputable AbsVal where - ppr Top = ptext SLIT("Top") - ppr (Fun r) = ptext SLIT("Fun->") <> (parens.ppr) r - ppr Tuple = ptext SLIT("Tuple ") - ppr Bot = ptext SLIT("Bot") + ppr Top = ptext (sLit "Top") + ppr (Fun r) = ptext (sLit "Fun->") <> (parens.ppr) r + ppr Tuple = ptext (sLit "Tuple ") + ppr Bot = ptext (sLit "Bot") -- lub takes the lowest upper bound of two abstract values, standard. |