typo
This commit is contained in:
parent
dd0b4bc848
commit
fc40432cff
1 changed files with 1 additions and 1 deletions
|
@ -114,7 +114,7 @@ getOutput :: String -> [String] -> Maybe [(String, String)] -> IO (String, Bool)
|
||||||
getOutput cmd params env = do
|
getOutput cmd params env = do
|
||||||
putStrLn $ unwords [cmd, show params]
|
putStrLn $ unwords [cmd, show params]
|
||||||
out@(s, ok) <- processTranscript' cmd params env Nothing
|
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
|
return out
|
||||||
|
|
||||||
runParser' :: Parser a -> String -> String -> a
|
runParser' :: Parser a -> String -> String -> a
|
||||||
|
|
Loading…
Add table
Reference in a new issue