diff options
| -rw-r--r-- | src/Haddock/GHC/Utils.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs index 062d015e..97a682d4 100644 --- a/src/Haddock/GHC/Utils.hs +++ b/src/Haddock/GHC/Utils.hs @@ -13,6 +13,7 @@ module Haddock.GHC.Utils where import Data.Char +import Data.Version import qualified Data.Map as Map import GHC @@ -27,9 +28,17 @@ moduleString :: Module -> String moduleString = moduleNameString . moduleName +-- return the name of the package, with version info modulePkgStr = packageIdString . modulePackageId +-- return the (name,version) of the package +modulePkgInfo mod = case unpackPackageId pkg of + Nothing -> (packageIdString pkg, "") + Just x -> (pkgName x, showVersion (pkgVersion x)) + where pkg = modulePackageId mod + + mkModuleNoPkg :: String -> Module mkModuleNoPkg str = mkModule (stringToPackageId "") (mkModuleName str) |