From d56e9d76d5e50979a50674b311b4f4c630552b52 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Th=C3=A9ophile=20Choutri?= Date: Wed, 10 Jul 2024 23:02:49 +0200 Subject: [PATCH] Fix servant-foreign --- servant-foreign/src/Servant/Foreign/Internal.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/servant-foreign/src/Servant/Foreign/Internal.hs b/servant-foreign/src/Servant/Foreign/Internal.hs index d47864f99..2a154d1ab 100644 --- a/servant-foreign/src/Servant/Foreign/Internal.hs +++ b/servant-foreign/src/Servant/Foreign/Internal.hs @@ -37,6 +37,7 @@ import Servant.API import Servant.API.Modifiers (RequiredArgument) import Servant.API.TypeLevel +import Servant.API.MultiVerb (MultiVerb) -- | Canonical name of the endpoint, can be used to generate a function name. -- @@ -326,8 +327,8 @@ instance (KnownSymbol sym, HasForeignType lang ftype [t], HasForeign lang ftype , _argType = ftype } instance (Elem JSON list, HasForeignType lang ftype a, ReflectMethod method) - => HasForeign lang ftype (Verb method status list a) where - type Foreign ftype (Verb method status list a) = Req ftype + => HasForeign lang ftype (MultiVerb method list status a) where + type Foreign ftype (MultiVerb method list status a) = Req ftype foreignFor lang Proxy Proxy req = req & reqFuncName . _FunctionName %~ (methodLC :)