1import Control.Concurrent
2import StackTest
3
4main :: IO ()
5main = do
6    copy "src/Unlisted_OK.hs" "src/Unlisted.hs"
7    copy "embed_OK.txt" "embed.txt"
8    stack ["build"]
9    pause
10    copy "src/Unlisted_FAIL.hs" "src/Unlisted.hs"
11    stackErr ["build"]
12    pause
13    copy "src/Unlisted_OK.hs" "src/Unlisted.hs"
14    stack ["build"]
15    stack ["exec", "files-exe"]
16    pause
17    copy "embed_FAIL.txt" "embed.txt"
18    stack ["build"]
19    stackErr ["exec", "files-exe"]
20    pause
21    copy "embed_OK.txt" "embed.txt"
22    stack ["build"]
23    stack ["exec", "files-exe"]
24
25pause = threadDelay 1000000
26