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

[tls] ok , but why is tcp not working

Browse Source
This commit is contained in:
Jared Forsyth 2023-03-20 21:52:31 -05:00
parent bb809a748b
commit 9ce802d0d9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme-libs/racket/unison/tcp.rkt
View File

@ -50,12 +50,12 @@
(define (socketSend.impl.v3 socket data)
(if (not (pair? socket))
(exception "InvalidArguments" "Cannot send on a server socket" '())
(if (port-closed? (output socket))
(exception "IOError" "Connection reset" '())
; (if (port-closed? (output socket))
; (exception "IOError" "Connection reset" '())
(begin
(write-bytes data (output socket))
(flush-output (output socket))
(right none)))))
(right none)))); )
(define (socketReceive.impl.v3 socket amt)
(if (not (pair? socket))

2
unison-src/builtin-tests/networking-tests.u
View File

@ -1,6 +1,6 @@
shouldFail fn =
result = catch fn
result = catchAll fn
isLeft result
tcp.tests = do