Cleanup

2015-08-24 15:11:05 +02:00 · 2015-08-24 15:11:05 +02:00 · 85722ab6f2
parent c5db06af0f
commit 85722ab6f2
1 changed files with 1 additions and 2 deletions
--- 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