diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/world/net/tcp.jvm.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/world/net/tcp.jvm.lux b/stdlib/source/lux/world/net/tcp.jvm.lux index dfc27a0f2..fcd037578 100644 --- a/stdlib/source/lux/world/net/tcp.jvm.lux +++ b/stdlib/source/lux/world/net/tcp.jvm.lux @@ -42,7 +42,7 @@ #out OutputStream} (def: #export (read data offset length self) - (let [in (get@ #in (@repr self))] + (let [in (get@ #in (@representation self))] (P.future (do (e.ErrorT io.Monad<IO>) [bytes-read (InputStream::read [data (nat-to-int offset) (nat-to-int length)] @@ -50,7 +50,7 @@ (wrap (int-to-nat bytes-read)))))) (def: #export (write data offset length self) - (let [out (get@ #out (@repr self))] + (let [out (get@ #out (@representation self))] (P.future (do (e.ErrorT io.Monad<IO>) [_ (OutputStream::write [data (nat-to-int offset) (nat-to-int length)] @@ -58,7 +58,7 @@ (Flushable::flush [] out))))) (def: #export (close self) - (let [(^open) (@repr self)] + (let [(^open) (@representation self)] (P.future (do (e.ErrorT io.Monad<IO>) [_ (AutoCloseable::close [] in) @@ -70,9 +70,9 @@ (do (e.ErrorT io.Monad<IO>) [input (Socket::getInputStream [] socket) output (Socket::getOutputStream [] socket)] - (wrap (@abstract {#socket socket - #in input - #out output})))) + (wrap (@abstraction {#socket socket + #in input + #out output})))) (def: #export (client address port) (-> //.Address //.Port (T.Task TCP)) |