diff options
| -rw-r--r-- | src/Haddock/GHC/Utils.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs index 08eb4fb5..cfe0a83b 100644 --- a/src/Haddock/GHC/Utils.hs +++ b/src/Haddock/GHC/Utils.hs @@ -10,6 +10,7 @@ module Haddock.GHC.Utils where import Debug.Trace import Data.Char +import qualified Data.Map as Map import GHC import HsSyn @@ -50,6 +51,13 @@ mkModuleNoPkg str = mkModule (stringToPackageId "") (mkModuleName str) modulePkgStr = packageIdString . modulePackageId +-- Instances + + +instance (Outputable a, Outputable b) => Outputable (Map.Map a b) where + ppr m = ppr (Map.toList m) + + -- misc @@ -74,5 +82,8 @@ getMainDeclBinder _ = Nothing --modInfoName = moduleName . mi_module . minf_iface --modInfoMod = mi_module . minf_iface +pretty :: Outputable a => a -> String +pretty x = show (ppr x defaultUserStyle) + trace_ppr x y = trace (showSDoc (ppr x)) y |