report e (Left err) = concat [
    "\nFailure:\n"
  , show e
  , "\nfailed with error:\n"
  , show err
  ]
report e (Left err) = concat [
    "\nFailure:\n"
  , show e
  , "\nfailed with error:\n"
  , show err
  ]
report e (Left err) = concat [
    "\nFailure:\n"
  , show e
  , "\nfailed with error:\n"
  , show err
  ]