Remove client-specific data from AuthInfo

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

@@ -81,8 +81,8 @@ instance Hashable Method
 -- POST /foo
 -- @
 data Endpoint = Endpoint
-  { _path           :: [String]     -- type collected
-  , _method         :: Method       -- type collected
+  { _path   :: [String]     -- type collected
+  , _method :: Method       -- type collected
   } deriving (Eq, Ord, Generic)
 
 instance Show Endpoint where
@@ -239,7 +239,6 @@ defResponse = Response
 data AuthenticationInfo = AuthenticationInfo
   { _authIntro        :: String
   , _authDataRequired :: String
-  , _authUserReturned :: String
   } deriving (Eq, Ord, Show)
 
 -- | A datatype that represents everything that can happen
@@ -583,10 +582,13 @@ markdown api = unlines $
         authStr Nothing = []
         authStr (Just auth) =
             "#### Authentication" :
-            "This endpoint is protected." :
+            "" :
             auth ^. authIntro :
-            "Data to supply" :
+            "" :
+            "Clients must supply the following data" :
+            "" :
             auth ^. authDataRequired :
+            "" :
             []
 
         capturesStr :: [DocCapture] -> [String]