Antiquotations are not whitespace.

Author: Drup

ppx/ppx_element_content.ml

@@ -49,7 +49,7 @@ let is_whitespace = function
       | Some s when String.trim s = "" -> true
       | _ -> false
     end
-  | _ -> true
+  | _ -> false
 
 (* Given a list of parse trees representing children of an element, filters out
    all children that consist of applications of [pcdata] to strings containing

test/test_ppx.ml

@@ -173,6 +173,14 @@ let antiquot = "ppx antiquot", tyxml_tests Html.[
   [[%html "<p id="id">bla</p>"]],
   [p ~a:[a_id id] [pcdata "bla"]];
 
+  "first child",
+  [%html [elt1] "<p></p>"],
+  [elt1 ; p []];
+
+  "last child",
+  [%html "<p></p>" [elt1] ],
+  [p []; elt1];
+
   (* should succeed *)
   (* "escape", *)
   (* [%tyxml "<p>(tyxml4)</p>"], *)