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

fix example.

Browse source
This commit is contained in:
Vincent Hanquez 2013-01-19 20:12:16 +00:00
parent af78b1db4c
commit 678afe4d31
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
extra/Network/TLS/Extra/Connection.hs
View file

@ -26,12 +26,12 @@ import Network.TLS
--
-- @
-- import Network.TLS.Extra
-- import Crypto.Random
-- import Crypto.Random.AESCtr
-- ...
-- conn <- (newGenIO::IO SystemRandom) >>= connectionClient 192.168.2.2 7777 defaultParams g
-- conn <- makeSystem >>= connectionClient 192.168.2.2 7777 defaultParams
-- @
--
-- will make a new RNG (using system entropy) and connect to IP 192.168.2.2
-- will make a new RNG (using cprng-aes) and connect to IP 192.168.2.2
-- on port 7777.
connectionClient :: CPRG g => String -> String -> TLSParams -> g -> IO Context
connectionClient s p params rng = do