From 488a237dd9f29efea9fbf1187c74a7eea1cdc1fc Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 19 Jun 2008 18:40:13 +0000 Subject: Be more consistent with GHC API naming in H.GHC.Utils --- src/Haddock/GHC/Utils.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Haddock/GHC/Utils.hs') 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 -- cgit v1.2.3