From 84ccbd0b54de5717fcb4d94458501174b7e135b7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Th=C3=A9ophile=20Choutri?= Date: Mon, 8 Jul 2024 11:41:17 +0200 Subject: [PATCH] Polymorphise the method field of MultiVerb --- servant/src/Servant/API/MultiVerb.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)