aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-02-10 00:28:13 +0000
committerDavid Waern <david.waern@gmail.com>2008-02-10 00:28:13 +0000
commit84c483d84479d7f759514281d0bb0483f6aa3beb (patch)
treeee6f62ee375bcb1d9337f294fbf0de71d856f7e9
parentacd3451bcbc73e6871a4469eaacd38750238079d (diff)
H.GHC.Utils: add some functions that were removed by mistake
-rw-r--r--src/Haddock/GHC/Utils.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs
index 13dfae76..eae73597 100644
--- a/src/Haddock/GHC/Utils.hs
+++ b/src/Haddock/GHC/Utils.hs
@@ -17,12 +17,20 @@ import HsSyn
import SrcLoc
import Outputable
import Name
+import Packages
moduleString :: Module -> String
moduleString = moduleNameString . moduleName
+modulePkgStr = packageIdString . modulePackageId
+
+
+mkModuleNoPkg :: String -> Module
+mkModuleNoPkg str = mkModule (stringToPackageId "") (mkModuleName str)
+
+
instance (Outputable a, Outputable b) => Outputable (Map.Map a b) where
ppr m = ppr (Map.toList m)