diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 17:57:34 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 17:57:34 +0000 |
| commit | 4fc2ca8222ca4625132ad5acf3afeb8293e42a46 (patch) | |
| tree | 53179bc1616f26a88da2ace12a231c60a4174b1b /compiler | |
| parent | 1fe3295319c281cfe46a60a5e987a1f3a0316edc (diff) | |
| download | haskell-4fc2ca8222ca4625132ad5acf3afeb8293e42a46.tar.gz | |
(F)SLIT -> (f)sLit in RtClosureInspect
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 3702ec4b3b..cb16c1d39d 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -377,7 +377,7 @@ ppr_termM1 Prim{value=words, ty=ty} = return$ text$ repPrim (tyConAppTyCon ty) words ppr_termM1 Suspension{bound_to=Nothing} = return$ char '_' ppr_termM1 Suspension{ty=ty, bound_to=Just n} - | Just _ <- splitFunTy_maybe ty = return$ ptext SLIT("<function>") + | Just _ <- splitFunTy_maybe ty = return$ ptext (sLit "<function>") | otherwise = return$ parens$ ppr n <> text "::" <> ppr ty ppr_termM1 Term{} = panic "ppr_termM1 - Term" ppr_termM1 RefWrap{} = panic "ppr_termM1 - RefWrap" @@ -670,11 +670,11 @@ cvObtainTerm hsc_env bound force mb_ty hval = runTR hsc_env $ do reOrderTerms _ _ [] = [] reOrderTerms pointed unpointed (ty:tys) | isPointed ty = ASSERT2(not(null pointed) - , ptext SLIT("reOrderTerms") $$ + , ptext (sLit "reOrderTerms") $$ (ppr pointed $$ ppr unpointed)) let (t:tt) = pointed in t : reOrderTerms tt unpointed tys | otherwise = ASSERT2(not(null unpointed) - , ptext SLIT("reOrderTerms") $$ + , ptext (sLit "reOrderTerms") $$ (ppr pointed $$ ppr unpointed)) let (t:tt) = unpointed in t : reOrderTerms pointed tt tys |