diff --git a/servant/src/Servant/API/MultiVerb.hs b/servant/src/Servant/API/MultiVerb.hs index 6efef6e9d..ee1c4896a 100644 --- 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)