add 'StackProject' around

This commit is contained in:
scturtle
2015-08-18 20:55:45 +08:00
committed by Daniel Gröber
parent a285b42206
commit d660e7cd85
3 changed files with 5 additions and 3 deletions

View File

@@ -119,7 +119,7 @@ prepareCabalHelper = do
let projdir = cradleRootDir crdl
distdir = projdir </> cradleDistDir crdl
readProc <- gmReadProcess
when (cradleProjectType crdl == CabalProject) $
when (cradleProjectType crdl == CabalProject || cradleProjectType crdl == StackProject) $
withCabal $ liftIO $ prepare readProc projdir distdir
parseCustomPackageDb :: String -> [GhcPkgDb]

View File

@@ -27,6 +27,7 @@ debugInfo = do
cabal <-
case cradleProjectType of
CabalProject -> cabalDebug
StackProject -> cabalDebug
_ -> return []
pkgOpts <- packageGhcOptions