23 lines
568 B
Haskell
23 lines
568 B
Haskell
module List (listModules) where
|
|
|
|
import Control.Applicative
|
|
import Data.List
|
|
import GHC
|
|
import Packages
|
|
import Types
|
|
import UniqFM
|
|
|
|
----------------------------------------------------------------
|
|
|
|
listModules :: Options -> IO String
|
|
listModules opt = convert opt . nub . sort <$> list opt
|
|
|
|
list :: Options -> IO [String]
|
|
list opt = withGHC $ do
|
|
initSession0 opt
|
|
getExposedModules <$> getSessionDynFlags
|
|
where
|
|
getExposedModules = map moduleNameString
|
|
. concatMap exposedModules
|
|
. eltsUFM . pkgIdMap . pkgState
|