hasufell
/
ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

using void.

This commit is contained in:
Kazu Yamamoto 2014-09-23 14:55:56 +09:00
parent 735b80d0cc
commit 9ed4aa8fdf
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Language/Haskell/GhcMod/CabalConfig.hs
View File

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