Update examples
This commit is contained in:
36
testsuite/make/remake001/Main.hs
Normal file
36
testsuite/make/remake001/Main.hs
Normal file
@ -0,0 +1,36 @@
|
||||
--
|
||||
-- expected output:
|
||||
-- $ ./a.out
|
||||
-- True
|
||||
-- False
|
||||
-- True
|
||||
-- False
|
||||
--
|
||||
|
||||
import System.Plugins
|
||||
import System.Directory
|
||||
|
||||
main = do
|
||||
status <- make "Foo.hs" [] -- should make
|
||||
print status
|
||||
|
||||
status <- make "Foo.hs" [] -- shouldn't make
|
||||
print status
|
||||
|
||||
status <- merge "Foo.hs" "Bar.hs"
|
||||
case status of
|
||||
MergeFailure e -> error $ show e
|
||||
MergeSuccess _ _ fp -> do {
|
||||
|
||||
;status <- make fp [] -- should make
|
||||
;() <- case status of
|
||||
MakeSuccess c _ -> print c
|
||||
MakeFailure e -> error $ show e
|
||||
|
||||
;status <- make fp [] -- shouldn't make
|
||||
;case status of
|
||||
MakeSuccess c _ -> print c
|
||||
MakeFailure e -> error $ show e
|
||||
;removeFile "Foo.o"
|
||||
}
|
||||
|
Reference in New Issue
Block a user