From f998c63c738b37f69a956787f24ab76fa82a91f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Fri, 14 Aug 2015 04:28:22 +0200
Subject: [PATCH] Fix prepareCabalHelper when dist/ doesn't exist yet

---
 Language/Haskell/GhcMod/CabalHelper.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Language/Haskell/GhcMod/CabalHelper.hs b/Language/Haskell/GhcMod/CabalHelper.hs
index 006607b..bf180c8 100644
--- a/Language/Haskell/GhcMod/CabalHelper.hs
+++ b/Language/Haskell/GhcMod/CabalHelper.hs
@@ -133,7 +133,7 @@ prepareCabalHelper = do
   let projdir = cradleRootDir crdl
       distdir = projdir </> "dist"
   readProc <- gmReadProcess
-  liftIO $ prepare readProc projdir distdir
+  withCabal $ liftIO $ prepare readProc projdir distdir
 
 withCabal :: (IOish m, GmEnv m, GmLog m) => m a -> m a
 withCabal action = do