diff options
author | 2013-12-07 11:18:02 -0400 | |
---|---|---|
committer | 2013-12-07 11:18:02 -0400 | |
commit | 52fa716a498ebbd3074011eb179658c135378ff3 (patch) | |
tree | 97a5195c431a8c2f593885dfb8518272e98b0ecb /Build/EvilLinker.hs | |
parent | d515f7e02def55a48126b4696026a22c00992ccf (diff) |
typo
Diffstat (limited to 'Build/EvilLinker.hs')
-rw-r--r-- | Build/EvilLinker.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index a6176754c..f852b8119 100644 --- a/Build/EvilLinker.hs +++ b/Build/EvilLinker.hs @@ -114,7 +114,7 @@ getOutput :: String -> [String] -> Maybe [(String, String)] -> IO (String, Bool) getOutput cmd params env = do putStrLn $ unwords [cmd, show params] out@(s, ok) <- processTranscript' cmd params env Nothing - putStrLn $ unwords [cmd, "finished", show ok, "output size:", length s] + putStrLn $ unwords [cmd, "finished", show ok, "output size:", show (length s)] return out runParser' :: Parser a -> String -> String -> a |