Fix finding sandbox in sandbox only projects

This commit is contained in:
Daniel Gröber
2015-02-07 16:40:22 +01:00
parent 11562b4fe7
commit 417cacbf81
3 changed files with 57 additions and 25 deletions

View File

@@ -46,7 +46,7 @@ cabalCradle wdir = do
sandboxCradle :: FilePath -> IO Cradle
sandboxCradle wdir = do
Just sbDir <- getSandboxDb wdir
Just sbDir <- findCabalSandboxDir wdir
pkgDbStack <- getPackageDbStack sbDir
tmpDir <- newTempDir sbDir
return Cradle {