nemesis-2011.6.12: src/System/Nemesis/Util.hs

{-# LANGUAGE NoMonomorphismRestriction #-}

module System.Nemesis.Util (
    module Air.Env
  , ls
  , rm
  , rm_rf
) where

import System.Directory
import Air.Env hiding (lookup, end)
import Prelude ()
import Data.List ((\\))

ls :: String -> IO [String]
ls s = getDirectoryContents s ^ (\\ [".", ".."])

rm :: String -> IO ()
rm = removeFile

rm_rf :: String -> IO ()
rm_rf = removeDirectoryRecursive