Add modulePkgInfo to Haddock.GHC.Utils, which gives back package name and version info

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)