draft

Author: lubegasimon

src/markdown/generator.ml

@@ -18,7 +18,7 @@ type args = { generate_links : bool }
 let rec source_contains_text (s : Source.t) =
   let inline_contains_text (i : Inline.t) =
     let check_inline_desc (i : Inline.desc) =
-      match i with Text "" -> false | Text _ -> true | _ -> true
+      match i with Text "" -> false | Text _ | _ -> true
     in
     List.exists (fun { Inline.desc = d; _ } -> check_inline_desc d) i
   in