diff options
| author | simonpj@microsoft.com <unknown> | 2008-08-11 14:42:08 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-08-11 14:42:08 +0000 |
| commit | dbeb4f0202a3210b17abc0e540a3a1b91e9c1196 (patch) | |
| tree | fb305516dd911a19f12dee6c3952e080549ededf /compiler/utils | |
| parent | 8b072e93c055a73eb5c495cb129ea1737b925a8d (diff) | |
| download | haskell-dbeb4f0202a3210b17abc0e540a3a1b91e9c1196.tar.gz | |
Export Depth (needed for mkUserStyle); collapse identical PrintUnqualified, QueryQualifies
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 79a4917176..f476849e11 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -52,7 +52,7 @@ module Outputable ( codeStyle, userStyle, debugStyle, dumpStyle, asmStyle, ifPprDebug, qualName, qualModule, mkErrStyle, defaultErrStyle, defaultDumpStyle, defaultUserStyle, - mkUserStyle, + mkUserStyle, Depth(..), -- * Error handling and debugging utilities pprPanic, assertPprPanic, pprPanicFastInt, pprPgmError, @@ -154,9 +154,7 @@ alwaysQualifyModules _ = True neverQualifyModules :: QueryQualifyModule neverQualifyModules _ = False -type QueryQualifies = (QueryQualifyName, QueryQualifyModule) - -alwaysQualify, neverQualify :: QueryQualifies +alwaysQualify, neverQualify :: PrintUnqualified alwaysQualify = (alwaysQualifyNames, alwaysQualifyModules) neverQualify = (neverQualifyNames, neverQualifyModules) @@ -179,7 +177,7 @@ defaultErrStyle | opt_PprStyle_Debug = mkUserStyle alwaysQualify AllTheWay | otherwise = mkUserStyle alwaysQualify (PartWay opt_PprUserLength) -mkUserStyle :: QueryQualifies -> Depth -> PprStyle +mkUserStyle :: PrintUnqualified -> Depth -> PprStyle mkUserStyle unqual depth | opt_PprStyle_Debug = PprDebug | otherwise = PprUser unqual depth |