Add missing stack checks to stg_ap_* functions (#9001)
[ghc.git] / utils / testremove / wouldrm.hs
1
2 module Main (main) where
3
4 import System.Environment
5
6 data CleanWhat = CleanFile FilePath
7 | CleanRec FilePath
8 deriving (Read, Show)
9
10 main :: IO ()
11 main = do args <- getArgs
12 ls <- case args of
13 "CLEAN_FILES" : files -> return $ map CleanFile files
14 "CLEAN_REC" : dirs -> return $ map CleanRec dirs
15 _ -> error "Bad args"
16 appendFile "would-be-cleaned" $ unlines $ map show ls