add 'StackProject' around

此提交包含在:
scturtle
2015-08-18 20:55:45 +08:00
提交者 Daniel Gröber
父節點 a285b42206
當前提交 d660e7cd85
共有 3 個檔案被更改,包括 5 行新增3 行删除

查看文件

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

查看文件

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