deal with error when merging

OCamlPro · Aug 13, 2024 · b3b825e · b3b825e
1 parent 04c808c
commit b3b825e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/text_to_binary/rewrite.ml b/src/text_to_binary/rewrite.ml
@@ -538,10 +538,10 @@ let modul (modul : Assigned.t) : Binary.modul Result.t =
   let* types = rewrite_named (rewrite_types modul) modul.typ in
   let* start =
     match modul.start with
-    | None -> None
+    | None -> Ok None
     | Some id ->
       let (Raw id) = find func id in
-      Some id
+      Ok (Some id)
   in
 
   let modul_without_annots : Binary.modul =