From a223673eed37b08474a7f9213fc962c4e0a58b31 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Wed, 11 Dec 2013 16:36:35 +0800 Subject: [PATCH] make HandshakeM an instance of Applicative. --- core/Network/TLS/Handshake/State.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/Network/TLS/Handshake/State.hs b/core/Network/TLS/Handshake/State.hs index 1f09252..d7a8fa6 100644 --- a/core/Network/TLS/Handshake/State.hs +++ b/core/Network/TLS/Handshake/State.hs @@ -48,7 +48,7 @@ import Network.TLS.Crypto import Network.TLS.Cipher import Network.TLS.Compression import Network.TLS.Types -import Control.Applicative ((<$>)) +import Control.Applicative (Applicative, (<$>)) import Control.Monad.State import Data.X509 (CertificateChain) @@ -78,7 +78,7 @@ type ClientCertRequestData = ([CertificateType], [DistinguishedName]) newtype HandshakeM a = HandshakeM { runHandshakeM :: State HandshakeState a } - deriving (Functor, Monad) + deriving (Functor, Applicative, Monad) instance MonadState HandshakeState HandshakeM where put x = HandshakeM (put x)