File tree Expand file tree Collapse file tree 2 files changed +8
-0
lines changed Expand file tree Collapse file tree 2 files changed +8
-0
lines changed Original file line number Diff line number Diff line change @@ -169,6 +169,8 @@ data Method
169
169
| PATCH
170
170
| POST
171
171
| PUT
172
+ | MOVE
173
+ | COPY
172
174
| CustomMethod String
173
175
```
174
176
Original file line number Diff line number Diff line change @@ -10,6 +10,8 @@ data Method
10
10
| PATCH
11
11
| POST
12
12
| PUT
13
+ | MOVE
14
+ | COPY
13
15
| CustomMethod String
14
16
15
17
instance eqMethod :: Eq Method where
@@ -20,6 +22,8 @@ instance eqMethod :: Eq Method where
20
22
(==) PATCH PATCH = true
21
23
(==) POST POST = true
22
24
(==) PUT PUT = true
25
+ (==) MOVE MOVE = true
26
+ (==) COPY COPY = true
23
27
(==) _ _ = false
24
28
(/=) x y = not (x == y)
25
29
@@ -31,6 +35,8 @@ instance showMethod :: Show Method where
31
35
show PATCH = " PATCH"
32
36
show POST = " POST"
33
37
show PUT = " PUT"
38
+ show MOVE = " MOVE"
39
+ show COPY = " COPY"
34
40
show (CustomMethod m) = " (CustomMethod " ++ show m ++ " )"
35
41
36
42
instance isOptionMethod :: IsOption Method where
You can’t perform that action at this time.
0 commit comments