From 149dbf8e337d34acf0b3ce3563ef07df70dc88b9 Mon Sep 17 00:00:00 2001 From: Peter Becich Date: Sat, 29 Jan 2022 16:36:48 -0800 Subject: [PATCH] provide missing instance to fix tests --- lib/Servant/Ekg.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lib/Servant/Ekg.hs b/lib/Servant/Ekg.hs index 31c074a..5676aa5 100644 --- a/lib/Servant/Ekg.hs +++ b/lib/Servant/Ekg.hs @@ -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)