From 35b9d8e8a5d0e69cc756f21b7637a471e41a4fda Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:46:45 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in HsTypes --- compiler/hsSyn/HsTypes.lhs | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/compiler/hsSyn/HsTypes.lhs b/compiler/hsSyn/HsTypes.lhs index 25d6566..04609c6 100644 --- a/compiler/hsSyn/HsTypes.lhs +++ b/compiler/hsSyn/HsTypes.lhs @@ -28,8 +28,6 @@ module HsTypes ( pprParendHsType, pprHsForAll, pprHsContext, ppr_hs_context, pprHsTyVarBndr ) where -#include "HsVersions.h" - import {-# SOURCE #-} HsExpr ( HsSplice, pprSplice ) import Type @@ -76,7 +74,7 @@ data HsBang = HsNoBang -- Only used as a return value for getBangStrictness, instance Outputable HsBang where ppr (HsNoBang) = empty ppr (HsStrict) = char '!' - ppr (HsUnbox) = ptext SLIT("!!") + ppr (HsUnbox) = ptext (sLit "!!") getBangType :: LHsType a -> LHsType a getBangType (L _ (HsBangTy _ ty)) = ty @@ -284,7 +282,7 @@ instance (Outputable name) => Outputable (HsTyVarBndr name) where instance OutputableBndr name => Outputable (HsPred name) where ppr (HsClassP clas tys) = ppr clas <+> hsep (map pprLHsType tys) - ppr (HsEqualP t1 t2) = hsep [pprLHsType t1, ptext SLIT("~"), + ppr (HsEqualP t1 t2) = hsep [pprLHsType t1, ptext (sLit "~"), pprLHsType t2] ppr (HsIParam n ty) = hsep [ppr n, dcolon, ppr ty] @@ -303,11 +301,11 @@ pprHsForAll exp tvs cxt show_forall = opt_PprStyle_Debug || (not (null tvs) && is_explicit) is_explicit = case exp of {Explicit -> True; Implicit -> False} - forall_part = ptext SLIT("forall") <+> interppSP tvs <> dot + forall_part = ptext (sLit "forall") <+> interppSP tvs <> dot pprHsContext :: (OutputableBndr name) => HsContext name -> SDoc pprHsContext [] = empty -pprHsContext cxt = ppr_hs_context cxt <+> ptext SLIT("=>") +pprHsContext cxt = ppr_hs_context cxt <+> ptext (sLit "=>") ppr_hs_context :: (OutputableBndr name) => HsContext name -> SDoc ppr_hs_context [] = empty @@ -388,11 +386,11 @@ ppr_fun_ty ctxt_prec ty1 ty2 p2 = ppr_mono_lty pREC_TOP ty2 in maybeParen ctxt_prec pREC_FUN $ - sep [p1, ptext SLIT("->") <+> p2] + sep [p1, ptext (sLit "->") <+> p2] -------------------------- pabrackets :: SDoc -> SDoc -pabrackets p = ptext SLIT("[:") <> p <> ptext SLIT(":]") +pabrackets p = ptext (sLit "[:") <> p <> ptext (sLit ":]") \end{code} -- 1.7.10.4