mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-24 13:23:41 +01:00
Warning in OCaml
This commit is contained in:
parent
6d05caffd5
commit
b27b2701cf
@ -625,7 +625,7 @@ let get_data msg program_state rep_socket =
|
||||
let value =
|
||||
match StringHashtbl.find program_state.data key with
|
||||
| Some value -> value
|
||||
| None -> "\0"
|
||||
| None -> String.make 1 (Char.of_int_exn 0)
|
||||
in
|
||||
Message.GetDataReply (Message.GetDataReply_msg.create ~value)
|
||||
|> Message.to_string_list
|
||||
|
Loading…
Reference in New Issue
Block a user