formatErrors :: [String] -> String
formatErrors errs = introText ++ "\n" ++ errorList
  where
    introText        = "The following " ++ singularOrPlural ++ " encountered:"
    singularOrPlural = if length errs == 1 then "error was" else "errors were"
    errorList        = intercalate "\n" $ map ("   - " ++) errs


---
--- Runnners
---
formatErrors :: [String] -> String
formatErrors errs = introText ++ "\n" ++ errorList
  where
    introText        = "The following " ++ singularOrPlural ++ " encountered:"
    singularOrPlural = if length errs == 1 then "error was" else "errors were"
    errorList        = intercalate "\n" $ map ("   - " ++) errs


---
--- Runnners
---
formatErrors errs = introText ++ "\n" ++ errorList
  where
    introText        = "The following " ++ singularOrPlural ++ " encountered:"
    singularOrPlural = if length errs == 1 then "error was" else "errors were"
    errorList        = intercalate "\n" $ map ("   - " ++) errs


---
--- Runnners
---