From 85722ab6f2bdb68c51953cce2f911f01875a0933 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Mon, 24 Aug 2015 15:11:05 +0200
Subject: [PATCH] Cleanup

---
 Language/Haskell/GhcMod/Cradle.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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