Skip to content

Commit 9245da9

Browse files
committed
Fix comments
1 parent 2a4612a commit 9245da9

1 file changed

Lines changed: 2 additions & 3 deletions

File tree

src/Print.hs

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,6 @@ where
1313
import Import
1414
import Types
1515

16-
-- TODO Print output depending on --print=FORMAT (currently only v3)
1716
-- | Print a shell test considering the @--actual=mode@ option. See CLI
1817
-- documentation for details on.
1918
-- For v3 (the preferred, lightweight format), avoid printing most unnecessary things
@@ -62,7 +61,7 @@ printShellTest format actualMode ShellTest{command=c,stdin=i,comments=comments,t
6261
return (o_expected, e_expected, x_expected)
6362
computeResults (Just mode)
6463
| mode `isPrefixOf` "all" = return
65-
(Just $ Lines 0 $ fromEither o_actual -- TODO what about 0? how is it in parser?
64+
(Just $ Lines 0 $ fromEither o_actual
6665
,Just $ Lines 0 $ fromEither e_actual
6766
,Numeric $ show $ fromEither x_actual)
6867
| mode `isPrefixOf` "update" = return
@@ -88,7 +87,7 @@ printStdouterr _ Nothing = return ()
8887
printStdouterr _ (Just (Lines _ "")) = return ()
8988
printStdouterr _ (Just (Numeric _)) = fail "FATAL: Cannot handle Matcher (Numeric) for stdout/stderr."
9089
printStdouterr _ (Just (NegativeNumeric _)) = fail "FATAL: Cannot handle Matcher (NegativeNumeric) for stdout/stderr."
91-
printStdouterr prefix (Just (Lines _ s)) = printf "%s\n%s\n" prefix s -- TODO trailing \n ?
90+
printStdouterr prefix (Just (Lines _ s)) = printf "%s\n%s" prefix s
9291
printStdouterr prefix (Just regex) = printf "%s %s\n" prefix (show regex)
9392

9493

0 commit comments

Comments
 (0)