diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-10-08 00:09:45 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-10-08 00:09:45 +0000 |
| commit | 33bc86c566b4e2418c17e063c7417beca30476ef (patch) | |
| tree | e391280957a97eca4a69f884fb635bb3fcfe8064 | |
| parent | 32e663591a84d095723e62ef934a0bc6e1470b52 (diff) | |
| download | RNT-33bc86c566b4e2418c17e063c7417beca30476ef.tar.gz RNT-33bc86c566b4e2418c17e063c7417beca30476ef.zip | |
A better print representation
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Handle.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml index cdadd4a..2514a7f 100644 --- a/lib/protocols/Handle.ml +++ b/lib/protocols/Handle.ml @@ -40,7 +40,7 @@ let copy handle = let equal h1 h2 = Concepts.Hash.hash_equals (object_of h1)#hash (object_of h2)#hash let hash h = (object_of h)#hash let protocols h = (object_of h)#protocols -let to_string h = (object_of h)#to_string +let to_string h = let o = (object_of h) in "#<" ^ o#to_string ^ " " ^ (Concepts.Hash.to_hum_string o#hash) ^ ">" let release ({valid; _} as handle) = let o = object_of handle in |