diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 00:14:54 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 00:14:54 +0000 |
| commit | 98a77e781d970e6a0fc7a72a453d03495d732711 (patch) | |
| tree | 612fe49e7a0b1da16a0b32b8f10f55aac6347d55 | |
| parent | cd95dcbf6e463712206419f9ccf8eb04d8aa21b0 (diff) | |
| download | Sakura-98a77e781d970e6a0fc7a72a453d03495d732711.tar.gz Sakura-98a77e781d970e6a0fc7a72a453d03495d732711.zip | |
Migrate `Transport` over
| -rw-r--r-- | lib/transport.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/transport.ml b/lib/transport.ml index b541e16..90393da 100644 --- a/lib/transport.ml +++ b/lib/transport.ml @@ -20,6 +20,12 @@ module TCP : TRANSPORT = struct type t = Unix.file_descr type connection = Unix.file_descr + module Error = struct + open Condition + (* TODO: more structure *) + let parse_error msg = condition "parse-error" ("message" |=| (of_string msg)) + end + let sockaddr_of_fields = function | `Inet (addr, port) -> Ok @@ -50,8 +56,8 @@ module TCP : TRANSPORT = struct | bad :: _ -> errorf "transport/tcp: unexpected: %s" (to_string bad) in match sexp with - | List children -> go None None None children - | _ -> Error "transport/tcp: expected a list of fields" + | List children -> go None None None children |> Result.map_error Error.parse_error + | _ -> Error (Error.parse_error "transport/tcp: expected a list of fields") let string_of_sockaddr = function | Unix.ADDR_INET (host, port) -> |