diff --git a/servant/src/Servant/API/RemoteHost.hs b/servant/src/Servant/API/RemoteHost.hs index bf639d3b..e2de3a02 100644 --- a/servant/src/Servant/API/RemoteHost.hs +++ b/servant/src/Servant/API/RemoteHost.hs @@ -12,7 +12,7 @@ data RemoteHost deriving Typeable -- $remotehost -- --- | Use 'RemoteHost' whenever your request handlers need the host or IP address +-- Use 'RemoteHost' whenever your request handlers need the host or IP address -- from which the client issued the HTTP request. The corresponding handlers -- receive arguments of type @SockAddr@ (from @Network.Socket@). -- diff --git a/servant/src/Servant/API/ResponseHeaders.hs b/servant/src/Servant/API/ResponseHeaders.hs index f6208dc2..42e15678 100644 --- a/servant/src/Servant/API/ResponseHeaders.hs +++ b/servant/src/Servant/API/ResponseHeaders.hs @@ -45,7 +45,7 @@ import Prelude () import Prelude.Compat -- | Response Header objects. You should never need to construct one directly. --- Instead, use 'addOptionalHeader. +-- Instead, use 'addOptionalHeader'. data Headers ls a = Headers { getResponse :: a -- ^ The underlying value of a 'Headers' , getHeadersHList :: HList ls @@ -125,7 +125,7 @@ instance OVERLAPPABLE_ ( KnownSymbol h, ToHttpApiData v -- | @addHeader@ adds a header to a response. Note that it changes the type of -- the value in the following ways: -- --- 1. A simple value is wrapped in "Headers []": +-- 1. A simple value is wrapped in "Headers '[hdr]": -- -- >>> let example1 = addHeader 5 "hi" :: Headers '[Header "someheader" Int] String; -- >>> getHeaders example1