From 7dd94c0846ffea01d5bb55d0e7e4b7bffdca9147 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 30 Jan 2014 13:34:24 -0400
Subject: [PATCH] remove debug info

---
 Build/EvilLinker.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs
index c36ec33f3c..c8641f649c 100644
--- a/Build/EvilLinker.hs
+++ b/Build/EvilLinker.hs
@@ -125,8 +125,8 @@ getOutput c ps environ = do
 	putStrLn $ unwords [c, show ps]
 	systemenviron <- getEnvironment
 	let environ' = fromMaybe [] environ ++ systemenviron
-	out@(s, ok) <- processTranscript' c ps (Just environ') Nothing
-	putStrLn $ unwords [c, "finished", show ok, "output size:", show (length s)]
+	out@(_, ok) <- processTranscript' c ps (Just environ') Nothing
+	putStrLn $ unwords [c, "finished", show ok]
 	return out
 
 atFile :: FilePath -> String