eeva
/
servant-ekg
mirror of https://github.com/haskell-servant/servant-ekg.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

provide missing instance to fix tests

This commit is contained in:
Peter Becich 2022-01-29 16:36:48 -08:00
parent 655dd49ed1
commit 149dbf8e33
No known key found for this signature in database
GPG Key ID: E72322E610A464C4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Servant/Ekg.hs
View File

@ -117,6 +117,10 @@ instance HasEndpoint (sub :: *) => HasEndpoint (Header' mods h a :> sub) where
getEndpoint _ = getEndpoint (Proxy :: Proxy sub)
enumerateEndpoints _ = enumerateEndpoints (Proxy :: Proxy sub)
instance HasEndpoint (sub :: *) => HasEndpoint (Fragment a :> sub) where
getEndpoint _ = getEndpoint (Proxy :: Proxy sub)
enumerateEndpoints _ = enumerateEndpoints (Proxy :: Proxy sub)
instance HasEndpoint (sub :: *) => HasEndpoint (QueryParam' mods (h :: Symbol) a :> sub) where
getEndpoint _ = getEndpoint (Proxy :: Proxy sub)
enumerateEndpoints _ = enumerateEndpoints (Proxy :: Proxy sub)