pkgConf is a directory.

This commit is contained in:
Kazu Yamamoto 2013-03-07 20:50:04 +09:00
parent 0fa81bc26d
commit 1a792c4943
2 changed files with 2 additions and 3 deletions

View File

@ -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

View File

@ -1 +0,0 @@
dummy