eeva
/
servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge ad27e74273 into b3214eac38

This commit is contained in:
iko 2023-02-03 04:08:52 +00:00 committed by GitHub
parent b3214eac38 ad27e74273
commit 17b6518af8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
servant-foreign/src/Servant/Foreign/Internal.hs
View File

@ -515,6 +515,13 @@ instance HasForeign lang ftype api
foreignFor lang ftype Proxy req =
foreignFor lang ftype (Proxy :: Proxy api) req
instance HasForeign lang ftype (ToServantApi r) => HasForeign lang ftype (NamedRoutes r) where
type Foreign ftype (NamedRoutes r) = Foreign ftype (ToServantApi r)
foreignFor lang ftype Proxy req =
foreignFor lang ftype (Proxy :: Proxy (ToServantApi r)) req
-- | Utility class used by 'listFromAPI' which computes
-- the data needed to generate a function for each endpoint
-- and hands it all back in a list.