fix yaml doc indent

This commit is contained in:
rhiannon morris 2022-04-27 15:03:29 +02:00
parent d74b056e11
commit d062f79176

View file

@ -117,12 +117,12 @@ run1' : (Nat, TestBase) -> Runner Bool
run1' (index, test) = do run1' (index, test) = do
res <- liftIO test.run res <- liftIO test.run
case res of case res of
Tried ok info => putIndentLines $ Tried ok info => do
"\{isOk ok} \{show index} - \{test.label}" :: putIndentLines ["\{isOk ok} \{show index} - \{test.label}"]
toLines info local (plus 2) $ putIndentLines $ toLines info
Skip reason => putIndentLines $ Skip reason => putIndentLines
["ok \{show index} - \{test.label} # skip \{reason}"] ["ok \{show index} - \{test.label} # skip \{reason}"]
Todo reason => putIndentLines $ Todo reason => putIndentLines
["ok \{show index} - \{test.label} # todo \{reason}"] ["ok \{show index} - \{test.label} # todo \{reason}"]
pure $ toBool res pure $ toBool res