Make ghc-pkg calls less noisy

snoyberg · snoyberg · commit e940535cb8cd · 2018-05-17T14:15:41.000+03:00
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -14,6 +14,8 @@ Other enhancements:
 Bug fixes:
 
 * `~/.stack/config.yaml` and `stack.yaml` terminating by newline
+* The previous released caused a regression where some `stderr` from the
+  `ghc-pkg` command showed up in the terminal. This output is now silenced.
 
 
 ## v1.7.1
diff --git a/src/Stack/GhcPkg.hs b/src/Stack/GhcPkg.hs
@@ -71,9 +71,9 @@ ghcPkg wc pkgDbs args = do
         go
       Right _ -> return eres
   where
-    go = fmap (fmap BL.toStrict)
+    go = fmap (fmap (BL.toStrict . fst))
        $ tryAny
-       $ proc (ghcPkgExeName wc) args' readProcessStdout_
+       $ proc (ghcPkgExeName wc) args' readProcess_
     args' = packageDbFlags pkgDbs ++ args
 
 -- | Create a package database in the given directory, if it doesn't exist.
@@ -102,7 +102,7 @@ createDatabase wc db = do
                 ensureDir (parent db)
                 return ["init", toFilePath db]
         void $ proc (ghcPkgExeName wc) args $ \pc ->
-          readProcessStdout_ pc `onException`
+          readProcess_ pc `onException`
           logError ("Unable to create package database at " <> fromString (toFilePath db))
 
 -- | Get the name to use for "ghc-pkg", given the compiler version.
