diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2015-03-28 19:39:33 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2015-03-28 19:39:33 +0100 |
| commit | 2564a01db6dcd6f8f573b1f0d9b47d82e943da9d (patch) | |
| tree | fe6a5286f9c834e01b3867fadf7e474855ec696f | |
| parent | 12ce7b2b9110cbd59595775311294933adda171d (diff) | |
Fix stray output
| -rw-r--r-- | Distribution/Helper.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs index cd1d30e..44b17bb 100644 --- a/Distribution/Helper.hs +++ b/Distribution/Helper.hs @@ -202,7 +202,7 @@ writeAutogenFiles :: MonadIO m -> m () writeAutogenFiles distdir = liftIO $ do exe <- findLibexecExe "cabal-helper-wrapper" - callProcess' exe [distdir, "write-autogen-files"] + void $ readProcess exe [distdir, "write-autogen-files"] "" -- | This exception is thrown by all 'runQuery' functions if the internal -- wrapper executable cannot be found. You may catch this and present the user @@ -276,10 +276,3 @@ getExecutablePath' = #else getProgName #endif - -callProcess' exe args = -#if MIN_VERSION_process(1,2,0) - callProcess exe args -#else - void $ readProcess exe args "" -#endif |