Add an HasEndpoint instance for AuthProtect

worm2fed · Nov 24, 2023 · 5758335 · 5758335
1 parent 17a1221
commit 5758335
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/Prometheus/Servant/Internal.hs b/lib/Prometheus/Servant/Internal.hs
@@ -175,6 +175,13 @@ instance ReflectMethod method => HasEndpoint (Verb method status cts a) where
     where
       method = reflectMethod (Proxy :: Proxy method)
 
+#if MIN_VERSION_servant(0,5,0)
+instance HasEndpoint (sub :: Type) => HasEndpoint (AuthProtect a :> sub) where
+  getEndpoint _ = getEndpoint (Proxy :: Proxy sub)
+
+  enumerateEndpoints _ = enumerateEndpoints (Proxy :: Proxy sub)
+#endif
+
 #if MIN_VERSION_servant(0,17,0)
 instance ReflectMethod method => HasEndpoint (NoContentVerb method) where
   getEndpoint _ req = case pathInfo req of