getPprStyle, withPprStyle, withPprStyleDoc, pprDeeper, pprSetDepth,
codeStyle, userStyle, debugStyle, dumpStyle, asmStyle,
ifPprDebug, unqualStyle,
- mkErrStyle, defaultErrStyle,
+ mkErrStyle, defaultErrStyle, defaultDumpStyle, defaultUserStyle,
SDoc, -- Abstract
docToSDoc,
sep, cat,
fsep, fcat,
hang, punctuate,
- speakNth, speakNTimes, speakN,
+ speakNth, speakNTimes, speakN, speakNOf, plural,
printSDoc, printErrs, printDump,
printForC, printForAsm, printForUser,
ppr w])
instance Outputable FastString where
- ppr fs = text (unpackFS fs) -- Prints an unadorned string,
- -- no double quotes or anything
+ ppr fs = ftext fs -- Prints an unadorned string,
+ -- no double quotes or anything
instance Outputable PackageId where
ppr pid = text (packageIdString pid)
pprHsString :: FastString -> SDoc
pprHsString fs = text (show (unpackFS fs))
-
-instance Show FastString where
- showsPrec p fs = showsPrecSDoc p (ppr fs)
\end{code}
last_dig = n `rem` 10
speakN :: Int -> SDoc
-speakN 1 = ptext SLIT("one")
+speakN 0 = ptext SLIT("none") -- E.g. "he has none"
+speakN 1 = ptext SLIT("one") -- E.g. "he has one"
speakN 2 = ptext SLIT("two")
speakN 3 = ptext SLIT("three")
speakN 4 = ptext SLIT("four")
speakN 6 = ptext SLIT("six")
speakN n = int n
+speakNOf :: Int -> SDoc -> SDoc
+speakNOf 0 d = ptext SLIT("no") <+> d <> char 's' -- E.g. "no arguments"
+speakNOf 1 d = ptext SLIT("one") <+> d -- E.g. "one argument"
+speakNOf n d = speakN n <+> d <> char 's' -- E.g. "three arguments"
+
speakNTimes :: Int {- >=1 -} -> SDoc
speakNTimes t | t == 1 = ptext SLIT("once")
| t == 2 = ptext SLIT("twice")
- | otherwise = int t <+> ptext SLIT("times")
+ | otherwise = speakN t <+> ptext SLIT("times")
+
+plural [x] = empty
+plural xs = char 's'
\end{code}