another draft

Author: lubegasimon

src/markdown/generator.ml

@@ -34,14 +34,11 @@ let rec source_code (s : Source.t) args =
   | [] -> noop
   | h :: t -> (
       let continue s =
-        if s = [] then noop
-        else if source_contains_text s then source_code s args
-        else noop
+        if source_contains_text s then source_code s args else noop
       in
       match h with
       | Source.Elt i -> inline i args ++ continue t
-      | Tag (_, s) -> continue s ++ continue t
-      (* | Tag (Some _, s) -> continue s ++ continue t *))
+      | Tag (_, s) -> continue s ++ continue t)
 
 and inline (l : Inline.t) args =
   match l with