Remove debug info from default output #2175

commercialhaskell · May 23, 2016 · 0060443 · 0060443
1 parent 0b58282
commit 0060443
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Stack/Fetch.hs b/src/Stack/Fetch.hs
@@ -291,9 +291,8 @@ withCabalFiles name pkgs f = do
                     , T.pack $ packageIdentifierString ident
                     , " with Git SHA of "
                     , decodeUtf8 sha
-                    , "\n"
-                    , T.pack $ show e
                     ]
+                $logDebug (T.pack (show e))
                 goPkg h Nothing (ident, pc, Nothing, tf)
     goPkg h _mgit (ident, pc, _mgitsha, tf) = liftIO $ do
         hSeek h AbsoluteSeek $ fromIntegral $ pcOffset pc