2014-04-30 01:49:25 +00:00
|
|
|
module Language.Haskell.GhcMod.Boot where
|
2014-04-21 02:57:14 +00:00
|
|
|
|
2014-07-11 01:10:37 +00:00
|
|
|
import Control.Applicative
|
2014-04-30 01:49:25 +00:00
|
|
|
import Language.Haskell.GhcMod.Browse
|
|
|
|
|
import Language.Haskell.GhcMod.Flag
|
|
|
|
|
import Language.Haskell.GhcMod.Lang
|
2014-05-10 11:51:35 +00:00
|
|
|
import Language.Haskell.GhcMod.Monad
|
2014-08-28 09:41:03 +00:00
|
|
|
import Language.Haskell.GhcMod.Modules
|
2014-04-21 02:57:14 +00:00
|
|
|
|
2014-04-30 01:51:34 +00:00
|
|
|
-- | Printing necessary information for front-end booting.
|
2014-07-12 09:16:16 +00:00
|
|
|
boot :: IOish m => GhcModT m String
|
2014-07-11 01:10:37 +00:00
|
|
|
boot = concat <$> sequence [modules, languages, flags,
|
|
|
|
|
concat <$> mapM browse preBrowsedModules]
|
2014-04-21 07:30:31 +00:00
|
|
|
|
2014-04-21 02:57:14 +00:00
|
|
|
preBrowsedModules :: [String]
|
|
|
|
|
preBrowsedModules = [
|
|
|
|
|
"Prelude"
|
|
|
|
|
, "Control.Applicative"
|
|
|
|
|
, "Control.Exception"
|
|
|
|
|
, "Control.Monad"
|
|
|
|
|
, "Data.Char"
|
|
|
|
|
, "Data.List"
|
|
|
|
|
, "Data.Maybe"
|
|
|
|
|
, "System.IO"
|
|
|
|
|
]
|
