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
res <- liftIO test.run
case res of
Tried ok info => putIndentLines $
"\{isOk ok} \{show index} - \{test.label}" ::
toLines info
Skip reason => putIndentLines $
Tried ok info => do
putIndentLines ["\{isOk ok} \{show index} - \{test.label}"]
local (plus 2) $ putIndentLines $ toLines info
Skip reason => putIndentLines
["ok \{show index} - \{test.label} # skip \{reason}"]
Todo reason => putIndentLines $
Todo reason => putIndentLines
["ok \{show index} - \{test.label} # todo \{reason}"]
pure $ toBool res