sig
  type sitedata = { site_dir : string list; site_dir_string : string; }
  type server_params
  val sp : Eliom_types.server_params
  val encode_eliom_data : '-> string
end