module Language.PureScript.Options where
import Prelude.Compat
import qualified Data.Set as S
import Data.Map (Map)
import qualified Data.Map as Map
data Options = Options
{ optionsVerboseErrors :: Bool
, optionsNoComments :: Bool
, optionsCodegenTargets :: S.Set CodegenTarget
} deriving Show
defaultOptions :: Options
defaultOptions = Options False False (S.singleton JS)
data CodegenTarget = JS | JSSourceMap | CoreFn | Docs
deriving (Eq, Ord, Show)
codegenTargets :: Map String CodegenTarget
codegenTargets = Map.fromList
[ ("js", JS)
, ("sourcemaps", JSSourceMap)
, ("corefn", CoreFn)
, ("docs", Docs)
]