Fix servant-foreign

haskell-servant · Jul 10, 2024 · d56e9d7 · d56e9d7
1 parent 6fe132b
commit d56e9d7
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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 :)