This commit is contained in:
Joey Hess 2012-10-16 16:58:04 -04:00
parent 7d4f1358f9
commit 1da89079f2

View file

@ -15,14 +15,12 @@ import Control.Monad
import Control.Monad.IfElse
import System.FilePath
import Control.Applicative
import System.Posix.Directory
import System.IO.Unsafe (unsafeInterleaveIO)
import Utility.SafeCommand
import Utility.TempFile
import Utility.Exception
import Utility.Monad
import Utility.Path
dirCruft :: FilePath -> Bool
dirCruft "." = True