Refactor match expressions to use a catch-all case

ThinkOpenly · Nov 21, 2024 · 35af3fd · 35af3fd
1 parent eb4611c
commit 35af3fd
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/sail_json_backend/json.ml b/src/sail_json_backend/json.ml
@@ -517,11 +517,9 @@ let get_mnemonic id args_list =
         | Some (mnemonic :: _) when mnemonic = str ->
             debug_print ("Mnemonic matched: " ^ str);
             Some str
-        | Some _ -> None
-        | None -> None
+        | _ -> None
       )
-  | Some [] -> None
-  | None -> None
+  | _ -> None
 
 let process_base_instruction () =
   let mnemonics =