some refactoring

This commit is contained in:
Nicolas Rolland
2015-11-27 11:12:30 +01:00
parent e1d2de96c8
commit bff86be69f
3 changed files with 5 additions and 11 deletions

View File

@@ -100,8 +100,7 @@ stackCradle wdir = do
-- If dist/setup-config already exists the user probably wants to use cabal
-- rather than stack, or maybe that's just me ;)
whenM (liftIO $ doesFileExist $ setupConfigPath "dist") $ do
gmLog GmWarning "" $ (text
"'dist/setup-config' exists, ignoring Stack and using cabal-install instead.")
gmLog GmWarning "" $ text "'dist/setup-config' exists, ignoring Stack and using cabal-install instead."
mzero
senv <- MaybeT $ getStackEnv cabalDir