module Crypto.Noise.HandshakePatterns
(
HandshakePattern
, noiseNN
, noiseKN
, noiseNK
, noiseKK
, noiseNX
, noiseKX
, noiseXN
, noiseIN
, noiseXK
, noiseIK
, noiseXX
, noiseIX
, noiseN
, noiseK
, noiseX
, noiseXXfallback
) where
import Crypto.Noise.Internal.HandshakePattern
noiseNN :: HandshakePattern
noiseNN = HandshakePattern "NN" $ do
initiator e
responder $ do
e
ee
noiseKN :: HandshakePattern
noiseKN = HandshakePattern "KN" $ do
preInitiator s
initiator e
responder $ do
e
ee
se
noiseNK :: HandshakePattern
noiseNK = HandshakePattern "NK" $ do
preResponder s
initiator $ do
e
es
responder $ do
e
ee
noiseKK :: HandshakePattern
noiseKK = HandshakePattern "KK" $ do
preInitiator s
preResponder s
initiator $ do
e
es
ss
responder $ do
e
ee
se
noiseNX :: HandshakePattern
noiseNX = HandshakePattern "NX" $ do
initiator e
responder $ do
e
ee
s
es
noiseKX :: HandshakePattern
noiseKX = HandshakePattern "KX" $ do
preInitiator s
initiator e
responder $ do
e
ee
se
s
es
noiseXN :: HandshakePattern
noiseXN = HandshakePattern "XN" $ do
initiator e
responder $ do
e
ee
initiator $ do
s
se
noiseIN :: HandshakePattern
noiseIN = HandshakePattern "IN" $ do
initiator $ do
e
s
responder $ do
e
ee
se
noiseXK :: HandshakePattern
noiseXK = HandshakePattern "XK" $ do
preResponder s
initiator $ do
e
es
responder $ do
e
ee
initiator $ do
s
se
noiseIK :: HandshakePattern
noiseIK = HandshakePattern "IK" $ do
preResponder s
initiator $ do
e
es
s
ss
responder $ do
e
ee
se
noiseXX :: HandshakePattern
noiseXX = HandshakePattern "XX" $ do
initiator e
responder $ do
e
ee
s
es
initiator $ do
s
se
noiseIX :: HandshakePattern
noiseIX = HandshakePattern "IX" $ do
initiator $ do
e
s
responder $ do
e
ee
se
s
es
noiseN :: HandshakePattern
noiseN = HandshakePattern "N" $ do
preResponder s
initiator $ do
e
es
noiseK :: HandshakePattern
noiseK = HandshakePattern "K" $ do
preInitiator s
preResponder s
initiator $ do
e
es
ss
noiseX :: HandshakePattern
noiseX = HandshakePattern "X" $ do
preResponder s
initiator $ do
e
es
s
ss
noiseXXfallback :: HandshakePattern
noiseXXfallback = HandshakePattern "XXfallback" $ do
preResponder e
initiator $ do
e
ee
s
se
responder $ do
s
es