yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

properly set the type of maxfragmentlength

Browse source
This commit is contained in:
Vincent Hanquez 2012-10-20 08:58:14 +01:00
parent 325cfd1eab
commit 10e0a22950
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
core/Network/TLS/Extension.hs
View file

@ -85,7 +85,7 @@ instance Extension MaxFragmentLength where
marshallSize MaxFragment1024 = 2
marshallSize MaxFragment2048 = 3
marshallSize MaxFragment4096 = 4
extensionDecode _ = runGetMaybe (unmarshallSize <$> getWord8)
extensionDecode _ = runGetMaybe (MaxFragmentLength . unmarshallSize <$> getWord8)
where unmarshallSize 1 = MaxFragment512
unmarshallSize 2 = MaxFragment1024
unmarshallSize 3 = MaxFragment2048