Add an HasEndpoint instance for AuthProtect (#5)

worm2fed · Dec 14, 2023 · af99252 · af99252
1 parent 80c6457
commit af99252
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