2014-08-28 11:41:03 +02:00
|
|
|
module Language.Haskell.GhcMod.Modules (modules) where
|
2010-03-11 19:03:17 +09:00
|
|
|
|
2014-03-27 16:02:16 +09:00
|
|
|
import qualified GHC as G
|
2014-05-12 00:40:00 +02:00
|
|
|
import Language.Haskell.GhcMod.Convert
|
2014-07-17 14:30:42 +09:00
|
|
|
import Language.Haskell.GhcMod.Monad
|
2015-01-16 15:47:56 +01:00
|
|
|
import Language.Haskell.GhcMod.Gap (listVisibleModuleNames)
|
|
|
|
|
import Module (moduleNameString)
|
2010-03-11 19:03:17 +09:00
|
|
|
|
|
|
|
|
----------------------------------------------------------------
|
|
|
|
|
|
2013-05-20 14:28:56 +09:00
|
|
|
-- | Listing installed modules.
|
2015-03-03 21:12:43 +01:00
|
|
|
modules :: (IOish m, GmEnv m) => m String
|
|
|
|
|
modules = do
|
|
|
|
|
dflags <- runGmPkgGhc G.getSessionDynFlags
|
|
|
|
|
convert' $ map moduleNameString $ listVisibleModuleNames dflags
|