client - Eliom错误: {client{}}

Question

我遇到了一个错误，我不知道如何解决。我有以下代码(来自 Eliom Graffiti 教程)，我正在尝试使用 make test.byte 进行测试。

open Eliom_content.Html5.D

module My_app =
Eliom_registration.App (struct
  let application_name = "graffiti"
end)

let main_service =
  Eliom_registration.Html5.register_service
    ~path:[""]
    ~get_params:Eliom_parameter.unit
    (fun () () ->
      Lwt.return
        (html
          (head (title (pcdata "Graffiti")) [])
          (body [h1 [pcdata "Graffiti"]])))

{client{
  let _ = Eliom_lib.alert "Hello!"
}}

错误:

$ make test.byte
eliomc -c   graffiti.ml 
File "graffiti.ml", line 18, characters 0-1:
Parse error: [label_expr_list] or [expr level .] expected after "{" (in [expr])
Error while running external preprocessor

第 18 行是 {client{ 出现的位置

Answer 1

据我所知，graffiti.ml 应命名为 graffiti.eliom。