diff options
| -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) |