.ghci

:set -fwarn-unused-binds -fwarn-unused-imports
:set -isrc
:load Main src\Paths.hs

:def test \xs -> return $ ":main test " ++ xs

:{
:def opt \xs -> return $ unlines
        [":!mkdir obj"
        ,":!mkdir obj\\o2"
        ,":!ghc -O2 -fno-state-hack -isrc --make src/Paths.hs Main -outputdir obj/o2 -o obj/o2/main -rtsopts cbits/text_search.o"
        ,":!obj\\o2\\main +RTS -T -RTS " ++ xs]
:}
:{
:def time \xs -> return $ unlines
        [":!mkdir obj"
        ,":!mkdir obj\\prof"
        ,":!ghc -prof -rtsopts -auto-all -caf-all -O2 -fno-state-hack -isrc -DPROFILE --make src/Paths.hs Main -outputdir obj/prof -o obj/prof/main cbits/text_search.o"
        ,":!obj\\prof\\main +RTS -p -T -RTS " ++ xs
        ,":!start main.prof"]
:}
:{
:def space \xs -> return $ unlines
        [":!mkdir obj"
        ,":!mkdir obj\\prof"
        ,":!ghc -fno-state-hack -prof -rtsopts -auto-all -caf-all -isrc -DPROFILE --make src/Paths.hs Main -outputdir obj/prof -o obj/prof/main cbits/text_search.o && " ++
         "obj\\prof\\main +RTS -xt -hc -T -RTS " ++ xs ++ " && " ++
         "hp2ps -c main.hp && " ++
         "start main.ps"]
:}