mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 02:55:19 +03:00
fix some typos in builtin names
This commit is contained in:
parent
0674c57660
commit
368a51d1dd
@ -844,7 +844,7 @@ ioBuiltins =
|
||||
("Tls.terminate.impl.v3", tls --> iof unit),
|
||||
("Tls.ClientConfig.default", text --> bytes --> tlsClientConfig),
|
||||
("Tls.ServerConfig.default", list tlsSignedCert --> tlsPrivateKey --> tlsServerConfig),
|
||||
("TLS.ClientConfig.ciphers.set", list tlsCipher --> tlsClientConfig --> tlsClientConfig),
|
||||
("Tls.ClientConfig.ciphers.set", list tlsCipher --> tlsClientConfig --> tlsClientConfig),
|
||||
("Tls.ServerConfig.ciphers.set", list tlsCipher --> tlsServerConfig --> tlsServerConfig),
|
||||
("Tls.ClientConfig.certificates.set", list tlsSignedCert --> tlsClientConfig --> tlsClientConfig),
|
||||
("Tls.ClientConfig.withAuthCert", list tlsSignedCert --> tlsPrivateKey --> tlsClientConfig --> tlsClientConfig),
|
||||
|
@ -2560,7 +2560,7 @@ declareForeigns = do
|
||||
socket :: SYS.Socket
|
||||
) -> TLS.contextNew socket config
|
||||
|
||||
declareForeign Tracked "Tls.ClientConfig.withAuthCert.impl" boxBoxBoxDirect . mkForeign $
|
||||
declareForeign Tracked "Tls.ClientConfig.withAuthCert" boxBoxBoxDirect . mkForeign $
|
||||
\(cert :: X.SignedCertificate, key :: X.PrivKey, params :: ClientParams) ->
|
||||
let chain = X.CertificateChain [cert] in
|
||||
pure $ params
|
||||
|
Loading…
Reference in New Issue
Block a user