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 Control.Monad.IfElse
import System.FilePath import System.FilePath
import Control.Applicative import Control.Applicative
import System.Posix.Directory
import System.IO.Unsafe (unsafeInterleaveIO) import System.IO.Unsafe (unsafeInterleaveIO)
import Utility.SafeCommand import Utility.SafeCommand
import Utility.TempFile import Utility.TempFile
import Utility.Exception import Utility.Exception
import Utility.Monad import Utility.Monad
import Utility.Path
dirCruft :: FilePath -> Bool dirCruft :: FilePath -> Bool
dirCruft "." = True dirCruft "." = True