    mconcat (map (formatOutcome (indent <> "  ")) coDependents)

formatResult :: Text -> CheckResult a -> Text
formatResult _ (Success _) = ": " <> color Red "OK" <> "\n"
formatResult indent Skipped = ": " <> color Yellow "Skipped" <> "\n"
formatResult indent (Failure msg) = ": " <> color Red "Failure" <> "\n"
    <> indent <> "  " <> msg <> "\n"
formatResult indent (Error err) = ": " <> color Red "ERROR" <> "\n"
    <> indent <> "  " <> err <> "\n"
