mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 11:07:48 +03:00
[tls] ok , but why is tcp not working
This commit is contained in:
parent
bb809a748b
commit
9ce802d0d9
@ -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))
|
||||
|
@ -1,6 +1,6 @@
|
||||
|
||||
shouldFail fn =
|
||||
result = catch fn
|
||||
result = catchAll fn
|
||||
isLeft result
|
||||
|
||||
tcp.tests = do
|
||||
|
Loading…
Reference in New Issue
Block a user