Fix broken logic in cradle

This commit is contained in:
Daniel Gröber 2016-05-14 20:17:11 +02:00
parent b8076fc5d3
commit 0e024c9b79

View File

@ -75,8 +75,8 @@ cabalCradle wdir = do
let cabalDir = takeDirectory cabalFile
-- If cabal doesn't exist the user probably wants to use something else
whenM (isJust <$> liftIO (findExecutable "cabal")) $ do
gmLog GmWarning "" $ text "'dist/setup-config' exists but 'cabal' executable wasn't found."
whenM ((==Nothing) <$> liftIO (findExecutable "cabal")) $ do
gmLog GmInfo "" $ text "'dist/setup-config' exists but 'cabal' executable wasn't found"
mzero
return Cradle {