Fix stray tempdir

This commit is contained in:
Daniel Gröber 2015-06-01 11:58:31 +02:00
parent e6427ef643
commit 14c097530e
1 changed files with 1 additions and 2 deletions

View File

@ -57,12 +57,11 @@ customCradle wdir = do
cabalFile <- MaybeT $ findCabalFile wdir
let cabalDir = takeDirectory cabalFile
cradleFile <- MaybeT $ findCradleFile cabalDir
tmpDir <- liftIO $ newTempDir cabalDir
pkgDbStack <- liftIO $ parseCradle cradleFile
return Cradle {
cradleCurrentDir = wdir
, cradleRootDir = cabalDir
, cradleTempDir = tmpDir
, cradleTempDir = error "tmpDir"
, cradleCabalFile = Just cabalFile
, cradlePkgDbStack = pkgDbStack
}