aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/GHC/Utils.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-06-19 18:40:13 +0000
committerDavid Waern <david.waern@gmail.com>2008-06-19 18:40:13 +0000
commit488a237dd9f29efea9fbf1187c74a7eea1cdc1fc (patch)
tree3272a22f8cb66e58be1638b674a456ec11649b19 /src/Haddock/GHC/Utils.hs
parent9e70736bf57ff648feb892ee65500b29a0ad4381 (diff)
Be more consistent with GHC API naming in H.GHC.Utils
Diffstat (limited to 'src/Haddock/GHC/Utils.hs')
-rw-r--r--src/Haddock/GHC/Utils.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs
index 97a682d4..e71cc2e1 100644
--- a/src/Haddock/GHC/Utils.hs
+++ b/src/Haddock/GHC/Utils.hs
@@ -29,18 +29,18 @@ moduleString = moduleNameString . moduleName
-- return the name of the package, with version info
-modulePkgStr = packageIdString . modulePackageId
+modulePackageString = 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))
+modulePackageInfo 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)
+mkModuleNoPackage :: String -> Module
+mkModuleNoPackage str = mkModule (stringToPackageId "") (mkModuleName str)
instance (Outputable a, Outputable b) => Outputable (Map.Map a b) where