diff options
| author | David Waern <david.waern@gmail.com> | 2008-02-10 00:28:13 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-02-10 00:28:13 +0000 |
| commit | 84c483d84479d7f759514281d0bb0483f6aa3beb (patch) | |
| tree | ee6f62ee375bcb1d9337f294fbf0de71d856f7e9 | |
| parent | acd3451bcbc73e6871a4469eaacd38750238079d (diff) | |
H.GHC.Utils: add some functions that were removed by mistake
| -rw-r--r-- | src/Haddock/GHC/Utils.hs | 8 |
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) |