Remove unnecessary test in generate.ml

mirage · Apr 14, 2015 · 383c838 · 383c838
1 parent f5c5110
commit 383c838
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/scripts/generate.ml b/scripts/generate.ml
@@ -1657,12 +1657,7 @@ let output_type oc ~mli t =
 let output_status_types oc ~mli t =
   List.iter (output_type oc ~mli) t;
   append oc "type status = [";
-  List.iteri (fun i t ->
-      if i = 0 then
-        append oc "  | %s_status" t.section
-      else
-        append oc "  | %s_status" t.section
-    ) t;
+  List.iteri (fun i t -> append oc "  | %s_status" t.section) t;
   append oc "] with sexp";
   append oc "";
   append oc "type status_code = [`Code of int | status ] with sexp";