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