unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-26 11:07:48 +03:00
Code Issues Projects Releases Wiki Activity

fix some typos in builtin names

Browse Source
This commit is contained in:
Stew O'Connor 2023-05-01 09:47:50 -07:00
parent 0674c57660
commit 368a51d1dd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
parser-typechecker/src/Unison/Builtin.hs
View File

@ -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),

2
parser-typechecker/src/Unison/Runtime/Builtin.hs
View File

@ -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