1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module Examples.Test.Makefile(main) where
import Development.Shake(action, liftIO)
import qualified Start as Makefile
import System.Environment
import Examples.Util
import Control.Monad
import Data.List
import Data.Maybe
main = shaken test $ \args obj ->
action $ liftIO $ do
unless (["@@"] `isPrefixOf` args) $
error "The 'makefile' example should only be used in test mode, to test using a makefile use the 'make' example."
withArgs [fromMaybe x $ stripPrefix "@" x | x <- drop 1 args] Makefile.main
test build obj = do
copyDirectoryChanged "Examples/MakeTutor" $ obj "MakeTutor"
build ["@@","--directory=" ++ obj "MakeTutor","--no-report"]
build ["@@","--directory=" ++ obj "MakeTutor","--no-report"]
build ["@@","--directory=" ++ obj "MakeTutor","@clean","--no-report"]
|
