{-# LANGUAGE OverloadedStrings #-} -- | This module contains scripts to fetch the compiler. module Language.ATS.Package.Compiler ( cleanAll ) where import Quaalude cleanAll :: IO () cleanAll = do d <- (++ "/.atspkg") <$> getEnv "HOME" b <- doesDirectoryExist d when b $ do putStrLn "Cleaning everything..." removeDirectoryRecursive d