module Shaker.PluginConfig
where
import qualified Data.Map as M (fromList)
import Shaker.Type
import Shaker.Action.Test
import Shaker.Action.Compile
import Shaker.Action.Standard
defaultPluginMap :: PluginMap
defaultPluginMap = M.fromList $ map (\(a,b) -> (a, runStartAction >> b >> runEndAction)) list
where list = [
(Compile,runCompile ),
(FullCompile,runFullCompile ),
(Help,runHelp),
(InvalidAction,runInvalidAction),
(TestFramework , runTestFramework),
(ModuleTestFramework , runModuleTestFramework),
(IntelligentTestFramework , runIntelligentTestFramework),
(IntelligentModuleTestFramework, runModuleIntelligentTestFramework),
(Empty,runEmpty),
(Clean,runClean),
(Quit,runExit)
]
defaultCommandMap :: CommandMap
defaultCommandMap = M.fromList list
where list = [
("compile",Compile),
("fullcompile",FullCompile),
("help", Help),
("test", TestFramework ),
("test-module", ModuleTestFramework),
("itest", IntelligentTestFramework ),
("itest-module", IntelligentModuleTestFramework),
("clean",Clean),
("quit",Quit)
]