diff --git a/Language/Haskell/GhcMod/Cradle.hs b/Language/Haskell/GhcMod/Cradle.hs
index 022bff2..b348b89 100644
--- a/Language/Haskell/GhcMod/Cradle.hs
+++ b/Language/Haskell/GhcMod/Cradle.hs
@@ -83,8 +83,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 ;)
-    mCabalSetupCfg <- liftIO $ mightExist $ setupConfigPath "dist"
-    when (isJust mCabalSetupCfg) $ mzero
+    whenM (liftIO $ doesFileExist $ setupConfigPath "dist") $ mzero
 
     distDir <- MaybeT $ getStackDistDir cabalDir