From 9ed4aa8fdfdfb0a6010a00bfa08666722de30ee7 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 23 Sep 2014 14:55:56 +0900
Subject: [PATCH] using void.

---
 Language/Haskell/GhcMod/CabalConfig.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Language/Haskell/GhcMod/CabalConfig.hs b/Language/Haskell/GhcMod/CabalConfig.hs
index 5ea6ead..22aae06 100644
--- a/Language/Haskell/GhcMod/CabalConfig.hs
+++ b/Language/Haskell/GhcMod/CabalConfig.hs
@@ -24,7 +24,7 @@ import qualified Language.Haskell.GhcMod.Cabal21 as C21
 #endif
 
 import Control.Applicative ((<$>))
-import Control.Monad (mplus)
+import Control.Monad (void, mplus)
 #if MIN_VERSION_mtl(2,2,1)
 import Control.Monad.Except ()
 #else
@@ -61,8 +61,7 @@ getConfig cradle = liftIO (readFile file) `tryFix` \_ ->
    prjDir = cradleRootDir cradle
 
    configure :: (IOish m, MonadError GhcModError m) => m ()
-   configure =
-       withDirectory_ prjDir $ readProcess' "cabal" ["configure"] >> return ()
+   configure = withDirectory_ prjDir $ void $ readProcess' "cabal" ["configure"]
 
 
 setupConfigFile :: Cradle -> FilePath