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

use not a deprecated alias.

Browse source
This commit is contained in:
Vincent Hanquez 2013-05-26 08:01:34 +01:00
parent ac7cf0a31e
commit 8d39c0103b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -33,7 +33,7 @@ import Network.TLS
--
-- 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 :: CPRG g => String -> String -> Params -> g -> IO Context
connectionClient s p params rng = do
pn <- if and $ map isDigit $ p
then return $ fromIntegral $ (read p :: Int)