let sc = resStatus res
unless (any (\ p → p sc) [isSuccessful, isRedirection, isError])
$ abortSTM InternalServerError []
$ Just
let sc = resStatus res
unless (any (\ p → p sc) [isSuccessful, isRedirection, isError])
$ abortSTM InternalServerError []
$ Just