From 84c483d84479d7f759514281d0bb0483f6aa3beb Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 10 Feb 2008 00:28:13 +0000
Subject: H.GHC.Utils: add some functions that were removed by mistake

---
 src/Haddock/GHC/Utils.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/Haddock/GHC')

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)
 
-- 
cgit v1.2.3