blob: 45946a01118300fd58b55cb7bf9ba83f2a4f4107 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- Test the flage `force-no-intermediates` (issue #4114)
module Main (main) where
import T4114dSub
keep, nokeep :: [FilePath]
keep = ["T4114dSub.myhi", "T4114d.myhi"]
nokeep = ["T4114dSub.myo", "T4114d.myo"]
main :: IO ()
main = do
mapM_ assertNoKeep nokeep
mapM_ assertKeep keep
|
