2 module Main (main) where
4 import System.Environment
6 data CleanWhat = CleanFile FilePath
11 main = do args <- getArgs
13 "CLEAN_FILES" : files -> return $ map CleanFile files
14 "CLEAN_REC" : dirs -> return $ map CleanRec dirs
16 appendFile "would-be-cleaned" $ unlines $ map show ls