From a3941e53c643ae9d9795902e2fb0104b5e2c3309 Mon Sep 17 00:00:00 2001 From: Julien Moutinho Date: Sun, 2 Jul 2023 23:01:48 +0200 Subject: [PATCH] fix missing instance HasEndpoint --- lib/Servant/Ekg.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lib/Servant/Ekg.hs b/lib/Servant/Ekg.hs index 5676aa5..d189f13 100644 --- a/lib/Servant/Ekg.hs +++ b/lib/Servant/Ekg.hs @@ -203,3 +203,7 @@ instance HasEndpoint (sub :: *) => HasEndpoint (CaptureAll (h :: Symbol) a :> su instance HasEndpoint (sub :: *) => HasEndpoint (BasicAuth (realm :: Symbol) 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) -- 2.40.1