updating doc

Author: kazu-yamamoto

Diff for: tls/Network/TLS/PostHandshake.hs

@@ -14,20 +14,18 @@ import Network.TLS.Struct13
 
 ----------------------------------------------------------------
 
--- Server only
-
--- | Post-handshake certificate request with TLS 1.3.  Returns 'True' if the
--- request was possible, i.e. if TLS 1.3 is used and the remote client supports
--- post-handshake authentication.
+-- | Post-handshake certificate request with TLS 1.3.  Returns 'False'
+-- if the request was impossible, i.e. the remote client supports
+-- post-handshake authentication or the connection is established in
+-- TLS 1.2. Returns 'True' if the client authentication succeeds. An
+-- exception is thrown if the authentication fails. Server only.
 requestCertificate :: Context -> IO Bool
 requestCertificate ctx =
     checkValid ctx >> doRequestCertificate_ (ctxRoleParams ctx) ctx
 
--- Client only
-
--- Handle a post-handshake authentication flight with TLS 1.3.  This is called
--- automatically by 'recvData', in a context where the read lock is already
--- taken.
+-- | Handle a post-handshake authentication flight with TLS 1.3.  This
+-- is called automatically by 'recvData', in a context where the read
+-- lock is already taken. Client only.
 postHandshakeAuthWith :: Context -> Handshake13 -> IO ()
 postHandshakeAuthWith ctx hs =
     withWriteLock ctx $