explainError :: ServantError -> Text
explainError (FailureResponse _ _ _)        = "Response Failure"
explainError :: ServantError -> Text
explainError (FailureResponse _ _ _)        = "Response Failure"
explainError (FailureResponse _ _ _)        = "Response Failure"