simpleError :: HT.Status -> Text -> Response
simpleError status message =
  errorResponse status $ JSON.object ["message" .= message]
simpleError :: HT.Status -> Text -> Response
simpleError status message =
  errorResponse status $ JSON.object ["message" .= message]
simpleError status message =
  errorResponse status $ JSON.object ["message" .= message]