1. arkdro
  2. odeci

Commits

arkdro  committed 41d16c1

make result for add similar to other operations

  • Participants
  • Parent commits 7b82a0d
  • Branches master

Comments (0)

Files changed (1)

File ocaml/src/odec_port.ml

View file
     Some t, ET_Tuple [ET_Atom "ok"; res]
   | (ET_Tuple [ET_Atom "add"; t1; t2]) as t ->
     let res = sum_list [t1; t2] in
-    Some t, res
+    Some t, ET_Tuple [ET_Atom "ok"; res]
   | (ET_Tuple [ET_Atom "subtract"; t1; t2]) as t ->
     let res = subtract t1 t2 in
     Some t, res