diff --git a/Cradle.hs b/Cradle.hs index 325d245..3cdd7b6 100644 --- a/Cradle.hs +++ b/Cradle.hs @@ -40,7 +40,7 @@ findCradle Nothing strver = do Just (cdir,cfile) -> do let sbox = cdir "cabal-dev/" pkgConf = packageConfName sbox strver - exist <- doesFileExist pkgConf + exist <- doesDirectoryExist pkgConf return Cradle { cradleCurrentDir = wdir , cradleCabalDir = Just cdir @@ -66,7 +66,7 @@ packageConfName path ver = path "packages-" ++ ver ++ ".conf" checkPackageConf :: FilePath -> String -> IO FilePath checkPackageConf path ver = do let conf = packageConfName path ver - exist <- doesFileExist conf + exist <- doesDirectoryExist conf if exist then return conf else diff --git a/test/data/cabal-dev/packages-7.6.2.conf b/test/data/cabal-dev/packages-7.6.2.conf deleted file mode 100644 index 421376d..0000000 --- a/test/data/cabal-dev/packages-7.6.2.conf +++ /dev/null @@ -1 +0,0 @@ -dummy