Polymorphise the method field of MultiVerb

haskell-servant · Jul 8, 2024 · 84ccbd0 · 84ccbd0
1 parent e26ce02
commit 84ccbd0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/servant/src/Servant/API/MultiVerb.hs b/servant/src/Servant/API/MultiVerb.hs
@@ -232,7 +232,7 @@ type family ResponseTypes (as :: [Type]) where
 --    instance.
 --  * Headers can be attached to individual responses, also without affecting
 --    the handler return type.
-data MultiVerb (method :: StdMethod) cs (as :: [Type]) (r :: Type)
+data MultiVerb (method :: k) cs (as :: [Type]) (r :: Type)
 
 -- | A 'MultiVerb' endpoint with a single response.
 type MultiVerb1 m cs a = MultiVerb m cs '[a] (ResponseType a)