From 0060443d53673ee035e1a755b7082b892a47cb56 Mon Sep 17 00:00:00 2001 From: Michael Sloan Date: Sun, 22 May 2016 17:58:17 -0700 Subject: [PATCH] Remove debug info from default output #2175 --- src/Stack/Fetch.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Stack/Fetch.hs b/src/Stack/Fetch.hs index b38f12c49a..af985b78d9 100644 --- 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