Hi !
I am trying to upload a file in an ocsigen web app (working from a working ocsigen-start 2.4.0). I used example code from https://ocsigen.org/eliom/dev/manual/server-links#h5o-11 and http://ocsigen.org/tuto/6.4/manual/how-to-send-file-upload
After a few bug fixes, I end up with :
open%shared Eliom_content.Html
open%shared Eliom_content.Html.F
let%server service = Eliom_service.create
~path:(Eliom_service.Path ["upload"])
~meth:(Eliom_service.Get Eliom_parameter.unit)
()
let%client service = ~%service
let%shared upload = Eliom_registration.Html.create
~path:(Eliom_service.Path ["upload"])
~meth:(Eliom_service.Post (Eliom_parameter.unit,
Eliom_parameter.file "file"))
(fun () file ->
let to_display =
(*some code*)
in
Lwt.return
(html
(head (title (txt "Upload")) [])
(body [h1 [txt to_display]])))
(*some code*)
And I get following error (running make test.opt
):
Error: Unbound value Eliom_registration.Html.create
I find it really surprising as such value is documented at https://ocsigen.org/eliom/dev/api/server/Eliom_registration.Html (I use eliom 6.7) and implicitely there http://ocsigen.org/eliom/dev/api/server/Eliom_registration#2_UsingHTMLwithservices. It also seems to be sourced in my own eliom sources (I found it using grep).
Does someone as a clue on what is going on ?
Thanks for your time