diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 13:07:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 13:07:37 +0000 |
| commit | 85b8e2b98ed047786a3264499db70bf298b4d52e (patch) | |
| tree | ed39c32eb37e9d9180f9acf7eb0494bbb1f57e40 /compiler/hsSyn | |
| parent | 91e6d821eaa22a7fb9c66fc30ffa4a2436411966 (diff) | |
| download | haskell-85b8e2b98ed047786a3264499db70bf298b4d52e.tar.gz | |
(F)SLIT -> (f)sLit in HsSyn
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsSyn.lhs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/hsSyn/HsSyn.lhs b/compiler/hsSyn/HsSyn.lhs index 20e339f1f5..507eab60db 100644 --- a/compiler/hsSyn/HsSyn.lhs +++ b/compiler/hsSyn/HsSyn.lhs @@ -27,8 +27,6 @@ module HsSyn ( emptyHaddockModInfo, ) where -#include "HsVersions.h" - -- friends: import HsDecls import HsBinds @@ -105,11 +103,11 @@ instance (OutputableBndr name) = vcat [ pp_mb mbDoc, case exports of - Nothing -> pp_header (ptext SLIT("where")) + Nothing -> pp_header (ptext (sLit "where")) Just es -> vcat [ pp_header lparen, nest 8 (fsep (punctuate comma (map ppr es))), - nest 4 (ptext SLIT(") where")) + nest 4 (ptext (sLit ") where")) ], pp_nonnull imports, pp_nonnull decls @@ -119,7 +117,7 @@ instance (OutputableBndr name) Nothing -> pp_modname <+> rest Just d -> vcat [ pp_modname, ppr d, rest ] - pp_modname = ptext SLIT("module") <+> ppr name + pp_modname = ptext (sLit "module") <+> ppr name pp_mb :: Outputable t => Maybe t -> SDoc pp_mb (Just x) = ppr x |