aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <davve@dtek.chalmers.se>2007-10-21 14:34:26 +0000
committerDavid Waern <davve@dtek.chalmers.se>2007-10-21 14:34:26 +0000
commit2fb84ba8be505906e73f1c84405c639646c8a30e (patch)
tree14c867939f6269351edc062a2ab7cfeb0b291935
parent122bb92ffc28553b75e731639d81ce33e1cf2a28 (diff)
Add some Outputable utils
-rw-r--r--src/Haddock/GHC/Utils.hs11
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