From f8d50701d2abc8fa5e89cf5d02e97f090dc769ee Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Mon, 16 Jun 2008 07:09:49 +0000
Subject: Add modulePkgInfo to Haddock.GHC.Utils, which gives back package name
 and version info

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

(limited to 'src/Haddock/GHC/Utils.hs')

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