diff --git a/src/Data/HTTP/Method.purs b/src/Data/HTTP/Method.purs index a6973cd..f910569 100644 --- a/src/Data/HTTP/Method.purs +++ b/src/Data/HTTP/Method.purs @@ -84,6 +84,7 @@ fromString s = "MOVE" -> Left MOVE "LOCK" -> Left LOCK "UNLOCK" -> Left UNLOCK + "PATCH" -> Left PATCH m -> Right (CustomMethod m) print :: Either Method CustomMethod -> String