A web site illustrating a bug on entity for client-side/

bug_entity.eliom

{shared{
  open Eliom_lib
  open Eliom_content
}}

module Bug_entity_app =
  Eliom_registration.App (
    struct
      let application_name = "bug_entity"
    end)

let main_service =
  Eliom_service.service ~path:[] ~get_params:Eliom_parameter.unit ()


let () =
  Bug_entity_app.register
    ~service:main_service
    (fun () () ->
      let d = Eliom_content.Html5.D.div [] in
      ignore {unit{
	Eliom_content.Html5.Manip.appendChild %d (Eliom_content.Html5.F.entity "#947")
      }} ;
      Lwt.return
        (Eliom_tools.F.html
           ~title:"bug_entity"
           ~css:[["css";"bug_entity.css"]]
           Html5.F.(body [
             h2 [pcdata "Welcome from Eliom's destillery!"];
	     entity "#946" ;
	     d
           ])))