diff --git a/core/Network/TLS/Handshake/State.hs b/core/Network/TLS/Handshake/State.hs
index 00a12e9..bff3d13 100644
--- a/core/Network/TLS/Handshake/State.hs
+++ b/core/Network/TLS/Handshake/State.hs
@@ -168,7 +168,11 @@ getHandshakeDigest ver role = gets gen
         generateFinish | role == ClientRole = generateClientFinished
                        | otherwise          = generateServerFinished
 
-setMasterSecretFromPre :: Version -> Role -> Bytes -> HandshakeM ()
+-- | Generate the master secret from the pre master secret.
+setMasterSecretFromPre :: Version -- ^ chosen transmission version
+                       -> Role    -- ^ the role (Client or Server) of the generating side
+                       -> Bytes   -- ^ the pre master secret
+                       -> HandshakeM ()
 setMasterSecretFromPre ver role premasterSecret = do
     secret <- genSecret <$> get
     setMasterSecret ver role secret