Language/Haskell/GhcMod/Boot.hs

module Language.Haskell.GhcMod.Boot where

import Control.Applicative
import Language.Haskell.GhcMod.Browse
import Language.Haskell.GhcMod.Flag
import Language.Haskell.GhcMod.Lang
import Language.Haskell.GhcMod.List
import Language.Haskell.GhcMod.Monad

-- | Printing necessary information for front-end booting.
boot :: IOish m => GhcModT m String
boot =  concat <$> sequence [modules, languages, flags,
                             concat <$> mapM browse preBrowsedModules]

preBrowsedModules :: [String]
preBrowsedModules = [
    "Prelude"
  , "Control.Applicative"
  , "Control.Exception"
  , "Control.Monad"
  , "Data.Char"
  , "Data.List"
  , "Data.Maybe"
  , "System.IO"
  ]
bootInfo as API. 2014-04-30 10:49:25 +09:00			`module Language.Haskell.GhcMod.Boot where`
creating src/Boot.hs. 2014-04-21 11:57:14 +09:00
Migrate the remaining parts of the exposed API to `GhcMod a` 2014-07-11 03:10:37 +02:00			`import Control.Applicative`
bootInfo as API. 2014-04-30 10:49:25 +09:00			`import Language.Haskell.GhcMod.Browse`
			`import Language.Haskell.GhcMod.Flag`
			`import Language.Haskell.GhcMod.Lang`
			`import Language.Haskell.GhcMod.List`
Start migrating Ghc -> GhcMod monad 2014-05-10 13:51:35 +02:00			`import Language.Haskell.GhcMod.Monad`
creating src/Boot.hs. 2014-04-21 11:57:14 +09:00
doc. 2014-04-30 10:51:34 +09:00			`-- \| Printing necessary information for front-end booting.`
Use GhcModT everywhere and remove the GhcMod alias Not doing this makes having GhcModT pretty pointless as users of the library wouldn't be able to use custom inner monads as evey function for dealing with GhcModT's would be constraint to (GhcModT IO) thus only allowing IO as the inner monad. 2014-07-12 11:16:16 +02:00			`boot :: IOish m => GhcModT m String`
Migrate the remaining parts of the exposed API to `GhcMod a` 2014-07-11 03:10:37 +02:00			`boot = concat <$> sequence [modules, languages, flags,`
			`concat <$> mapM browse preBrowsedModules]`
ghc-modi boot. 2014-04-21 16:30:31 +09:00
creating src/Boot.hs. 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"`
			`]`