Use protolude 0.2.2, replace undefined with witness

protolude provides headMay since 0.2.2, it can be used instead of safe.
This commit is contained in:
Felix Yan
2018-05-28 13:08:27 -05:00
committed by Steve Chávez
parent 384767708b
commit 9ea7529f30
6 changed files with 6 additions and 8 deletions
+1 -1
View File
@@ -105,7 +105,7 @@ userApiRequest :: Schema -> Request -> RequestBody -> Either ApiRequestError Api
userApiRequest schema req reqBody
| isTargetingProc && method `notElem` ["GET", "POST"] = Left ActionInappropriate
| topLevelRange == emptyRange = Left InvalidRange
| shouldParsePayload && isLeft payload = either (Left . InvalidBody . toS) undefined payload
| shouldParsePayload && isLeft payload = either (Left . InvalidBody . toS) witness payload
| otherwise = Right ApiRequest {
iAction = action
, iTarget = target