WIP

servant-docs/src/Servant/Docs/Internal.hs

@@ -517,6 +517,10 @@ class ToCapture c where
 class ToAuthInfo a where
       toAuthInfo :: Proxy a -> DocAuthentication
 
+instance ToAuthInfo (BasicAuth "foo-realm" ()) where
+  toAuthInfo _ = DocAuthentication "herp" "derp"
+
+
 -- | Generate documentation in Markdown format for
 --   the given 'API'.
 markdown :: API -> String

servant/src/Servant/API/Internal/Test/ComprehensiveAPI.hs

@@ -22,6 +22,7 @@ type ComprehensiveAPI =
   QueryParam "foo" Int :> GET :<|>
   QueryParams "foo" Int :> GET :<|>
   QueryFlag "foo" :> GET :<|>
+  "private" :> BasicAuth "foo-realm" () :> GET :<|>
 -- Raw :<|>
   RemoteHost :> GET :<|>
   ReqBody '[JSON] Int :> GET :<|>