module Haskell.Docs.Cabal where
import Haskell.Docs.Ghc
import Data.Char (isSpace)
import Data.List
import Data.Maybe
import Distribution.InstalledPackageInfo
import Distribution.ModuleName
import Distribution.Simple.Compiler
import Distribution.Simple.PackageIndex
import DynFlags
import GHC
import Module
import PackageConfig
getGhcOpsPackageDB :: [String] -> [PackageDB]
getGhcOpsPackageDB gs = map (SpecificPackageDB . trim) pkgDBOps
where
pkgDBOps = filter ("--package-db" `isPrefixOf`) gs
trim = (drop 1) . snd . (break isSpace)
getAllPackages :: [String] -> Ghc [PackageConfig.PackageConfig]
getAllPackages gs =
do flags <- getSessionDynFlags
return (fromMaybe [] (pkgDatabase flags))
packagesByName :: PackageIndex -> [[InstalledPackageInfo]]
#if MIN_VERSION_Cabal(1,16,0)
packagesByName = map snd . allPackagesByName
#else
packagesByName = allPackagesByName
#endif
convModule :: Distribution.ModuleName.ModuleName -> Module.ModuleName
convModule = makeModuleName . intercalate "." . components
imap :: (a -> m) -> InstalledPackageInfo_ a -> InstalledPackageInfo_ m
imap f i@(InstalledPackageInfo{..}) =
i { exposedModules = map f exposedModules
, hiddenModules = map f hiddenModules }