module Language.Haskell.GhcMod.Types where
import Control.Monad.Trans.Control (MonadBaseControl)
import Data.List (intercalate)
import qualified Data.Map as M
import Exception (ExceptionMonad)
import MonadUtils (MonadIO)
import PackageConfig (PackageConfig)
type IOish m = (Functor m, MonadIO m, MonadBaseControl IO m, ExceptionMonad m)
data OutputStyle = LispStyle
| PlainStyle
deriving (Show)
newtype LineSeparator = LineSeparator String deriving (Show)
data Options = Options {
outputStyle :: OutputStyle
, lineSeparator :: LineSeparator
, ghcProgram :: FilePath
, cabalProgram :: FilePath
, ghcUserOptions:: [GHCOption]
, operators :: Bool
, detailed :: Bool
, qualified :: Bool
, hlintOpts :: [String]
} deriving (Show)
defaultOptions :: Options
defaultOptions = Options {
outputStyle = PlainStyle
, hlintOpts = []
, ghcProgram = "ghc"
, cabalProgram = "cabal"
, ghcUserOptions= []
, operators = False
, detailed = False
, qualified = False
, lineSeparator = LineSeparator "\0"
}
data Cradle = Cradle {
cradleCurrentDir :: FilePath
, cradleRootDir :: FilePath
, cradleTempDir :: FilePath
, cradleCabalFile :: Maybe FilePath
, cradlePkgDbStack :: [GhcPkgDb]
} deriving (Eq, Show)
data GhcPkgDb = GlobalDb | UserDb | PackageDb String deriving (Eq, Show)
type GHCOption = String
type IncludeDir = FilePath
type PackageBaseName = String
type PackageVersion = String
type PackageId = String
type Package = (PackageBaseName, PackageVersion, PackageId)
pkgName :: Package -> PackageBaseName
pkgName (n,_,_) = n
pkgVer :: Package -> PackageVersion
pkgVer (_,v,_) = v
pkgId :: Package -> PackageId
pkgId (_,_,i) = i
showPkg :: Package -> String
showPkg (n,v,_) = intercalate "-" [n,v]
showPkgId :: Package -> String
showPkgId (n,v,i) = intercalate "-" [n,v,i]
type PkgDb = (M.Map Package PackageConfig)
type Expression = String
type ModuleString = String
type Module = [String]
data CompilerOptions = CompilerOptions {
ghcOptions :: [GHCOption]
, includeDirs :: [IncludeDir]
, depPackages :: [Package]
} deriving (Eq, Show)