diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index 38d9896a..9f527c29 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/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]