mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 11:07:48 +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.terminate.impl.v3", tls --> iof unit),
|
||||||
("Tls.ClientConfig.default", text --> bytes --> tlsClientConfig),
|
("Tls.ClientConfig.default", text --> bytes --> tlsClientConfig),
|
||||||
("Tls.ServerConfig.default", list tlsSignedCert --> tlsPrivateKey --> tlsServerConfig),
|
("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.ServerConfig.ciphers.set", list tlsCipher --> tlsServerConfig --> tlsServerConfig),
|
||||||
("Tls.ClientConfig.certificates.set", list tlsSignedCert --> tlsClientConfig --> tlsClientConfig),
|
("Tls.ClientConfig.certificates.set", list tlsSignedCert --> tlsClientConfig --> tlsClientConfig),
|
||||||
("Tls.ClientConfig.withAuthCert", list tlsSignedCert --> tlsPrivateKey --> tlsClientConfig --> tlsClientConfig),
|
("Tls.ClientConfig.withAuthCert", list tlsSignedCert --> tlsPrivateKey --> tlsClientConfig --> tlsClientConfig),
|
||||||
|
@ -2560,7 +2560,7 @@ declareForeigns = do
|
|||||||
socket :: SYS.Socket
|
socket :: SYS.Socket
|
||||||
) -> TLS.contextNew socket config
|
) -> 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) ->
|
\(cert :: X.SignedCertificate, key :: X.PrivKey, params :: ClientParams) ->
|
||||||
let chain = X.CertificateChain [cert] in
|
let chain = X.CertificateChain [cert] in
|
||||||
pure $ params
|
pure $ params
|
||||||
|
Loading…
Reference in New Issue
Block a user