gistfile1.txt

let emit_seats action =
  let module Html5 = Html5.M in
  match action with
  | Container.Updated _ ->
     [{Container.selector="#content";
        markup = <:html5< <div>didnotgetit</div> >> }]
  | _ ->
     [{Container.selector="#error";
       markup = <:html5< <div>didnotgetit</div> >> }]
------------------------------------------------------------------------

File "lib/vrclient/vrclient.ml", line 41, characters 29-30:
Error: This expression has type Html5.Xml.elt list
       but an expression was expected of type
         Html5.Xml.elt Html5.Xml.list_wrap =
           Html5.Xml.elt Html5.M.Xml.list_wrap
Command exited with code 2.
make: *** [byte-compile-client] Error 10

----------------------------------------------------------