Files
ghc-mod/GhcMod/Exe/Boot.hs

30 lines
675 B
Haskell
Raw Normal View History

module GhcMod.Exe.Boot where
2014-04-21 11:57:14 +09:00
import Control.Applicative
2015-08-03 03:09:56 +02:00
import Prelude
import GhcMod.Exe.Browse
import GhcMod.Exe.Flag
import GhcMod.Exe.Lang
import GhcMod.Exe.Modules
import GhcMod.Monad
import GhcMod.Types (defaultBrowseOpts)
2014-04-21 11:57:14 +09:00
2014-04-30 10:51:34 +09:00
-- | Printing necessary information for front-end booting.
boot :: IOish m => GhcModT m String
2015-06-01 17:54:50 +03:00
boot = concat <$> sequence ms
where
ms = [modules False, languages, flags, concat <$> mapM (browse defaultBrowseOpts) preBrowsedModules]
2014-04-21 16:30:31 +09:00
2014-04-21 11:57:14 +09:00
preBrowsedModules :: [String]
preBrowsedModules = [
"Prelude"
, "Control.Applicative"
, "Control.Exception"
, "Control.Monad"
, "Data.Char"
, "Data.List"
, "Data.Maybe"
, "System.IO"
]