hs-tls/Network/TLS
Felipe Lessa 3f280e2d70 Define MonadState TLSSt's state function.
For some reason that I still don't know, when using state's
default definition with libraries

         base-4.5.0.0-40b99d05fae6a4eea95ea69e6e0c9702
         bytestring-0.9.2.1-18f26186028d7c0e92e78edc9071d376
         cereal-0.3.5.1-c85af6bc266354ac7b256440db39e874
         certificate-1.2.1-c61f160cdafc328081aeb08858403878
         crypto-api-0.10.1-a0c00402b73cec065108abe95d6cfaf2
         cryptocipher-0.3.0-d1785d4907a85f72ffd670491df324f2
         cryptohash-0.7.4-f6e253339d77757de756f81f77755b35
         mtl-2.1-e90c46af21f3870cee46f6218510d29d

I get <<loop>> for anything that uses the 'modify' function
(which in turn is defined in terms of 'state').  In particular, I
get it for 'startHandshakeClient' which is used in the beginning
by all tls clients.  For example,

  $ tls-simpleclient graph.facebook.com 443
  tls-simpleclient: <<loop>>

This commit fixes this bug.

(This is a harmless commit in the sense that even if I don't know
why this bug was happenning, it doesn't hurt to have an explicit
definition of 'state' -- it may actually save a few nanoseconds
here and there.)

Conflicts:

	Network/TLS/State.hs
2012-04-20 21:07:08 +01:00
..
Record expand tabs. 2012-03-27 08:57:51 +01:00
Cap.hs expand tabs. 2012-03-27 08:57:51 +01:00
Cipher.hs expand tabs. 2012-03-27 08:57:51 +01:00
Compression.hs expand tabs. 2012-03-27 08:57:51 +01:00
Context.hs rename connection* accessor to context*. 2012-03-31 23:15:23 +01:00
Core.hs rename connection* accessor to context*. 2012-03-31 23:15:23 +01:00
Crypto.hs expand tabs. 2012-03-27 08:57:51 +01:00
Internal.hs expand tabs. 2012-03-27 08:57:51 +01:00
MAC.hs expand tabs. 2012-03-27 08:57:51 +01:00
Measurement.hs expand tabs. 2012-03-27 08:57:51 +01:00
Packet.hs expand tabs. 2012-03-27 08:57:51 +01:00
Receiving.hs expand tabs. 2012-03-27 08:57:51 +01:00
Record.hs expand tabs. 2012-03-27 08:57:51 +01:00
Sending.hs expand tabs. 2012-03-27 08:57:51 +01:00
State.hs Define MonadState TLSSt's state function. 2012-04-20 21:07:08 +01:00
Struct.hs expand tabs. 2012-03-27 08:57:51 +01:00
Util.hs expand tabs. 2012-03-27 08:57:51 +01:00
Wire.hs expand tabs. 2012-03-27 08:57:51 +01:00