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

fold

Browse source
This commit is contained in:
Vincent Hanquez 2013-02-09 10:50:51 +00:00
parent 29863194bc
commit e711a49446
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
extra/Tests/Connection.hs
View file

@ -139,7 +139,7 @@ testInitiate spCert = do
runTests = do
{- FIXME generate the certificate and key with arbitrary, for now rely on special files -}
cert <- readCertificate "host.cert"
pk <- readPrivateKey "host.key"
cert <- fileReadCertificate "server.crt"
pk <- fileReadPrivateKey "server.key"
run_test "initiate" (monadicIO $ testInitiate [(cert, Just pk)])