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

obey the port selection with stunnel client.

Browse source
This commit is contained in:
Vincent Hanquez 2010-09-18 11:01:10 +01:00
parent abf299db36
commit 03790957d8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Stunnel.hs
View file

@ -58,7 +58,7 @@ mainClient host port = do
premasterRandom <- (ClientKeyData . B.unpack) `fmap` AESRand.randBytes 46
seqInit <- fmap (conv . B.unpack) $ AESRand.randBytes 4
handle <- connectTo host (PortNumber 6061)
handle <- connectTo host (PortNumber $ fromIntegral port)
hSetBuffering handle NoBuffering
let clientstate = C.TLSClientParams