Permalink
Fetching contributors…
Cannot retrieve contributors at this time
59 lines (49 sloc) 1.95 KB
:set -ignore-package=hashmap
:set -fwarn-unused-binds -fwarn-unused-imports -fwarn-orphans
:set -DNETWORK
:set -isrc
:load src/Test.hs src/Paths.hs
:def test \x -> return $ ":main test " ++ x
:def test_random \x -> return $ ":main random test " ++ x
:def docs_ const $ return $ unlines [":!cabal haddock"]
:def docs const $ return $ unlines [":docs_",":!start dist\\doc\\html\\shake\\Development-Shake.html"]
:def hlint_ const $ return ":!hlint src --report=hlint.html"
:def hlint const $ return $ unlines [":hlint_",":!start hlint.html"]
:def travis const $ return ":!ghc -fno-code travis.hs"
:{
let _ghci_make name flags =
":!" ++
"(if not exist .hpc mkdir .hpc) && " ++
"(if not exist .hpc\\" ++ name ++ " mkdir .hpc\\" ++ name ++ ") && " ++
"ghc " ++ flags ++ " -rtsopts -ignore-package hashmap -package transformers --make -isrc src/Test.hs src/Paths.hs -w -odir .hpc/" ++ name ++ " -hidir .hpc/" ++ name ++ " -o .hpc/" ++ name ++ "/shake.exe -main-is Test.main"
:}
:{
:def prof_ \x -> return $ unlines
[_ghci_make "prof" "-rtsopts -threaded -prof -auto-all -caf-all"
,":!.hpc\\prof\\shake +RTS -P -RTS " ++ x
,":!profiterole shake.prof"
]
:}
:def prof \x -> return $ unlines [":prof_ " ++ x,":!start shake.profiterole.html"]
:{
:def hpc_ const $ return $ unlines
[_ghci_make "hpc" "-fhpc"
,":!del shake.tix"
,":!.hpc\\hpc\\shake clean"
,":!.hpc\\hpc\\shake test"
,":!.hpc\\hpc\\shake random test 1m"
,":!hpc.exe markup shake.tix --destdir=.hpc"
,":!hpc.exe report shake.tix"
,":!del shake.tix"]
:}
:def hpc \x -> return $ unlines [":hpc_",":!start .hpc\\hpc_index_fun.html"]
:{
:def benchmark \x -> return $ unlines
[_ghci_make "benchmark" "-O2 -threaded"
,":!ptime .hpc\\benchmark\\shake " ++ x
,"putStrLn \"\""]
:}
:{
:def core \x -> return $ unlines
[_ghci_make "core" "-O1 -threaded -ddump-simpl" ++ " > core.txt"]
:}