Source file ezLoads_offset.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(**************************************************************************)
(*                                                                        *)
(*                 Copyright 2018-2023 OCamlPro                           *)
(*                                                                        *)
(*  All rights reserved. This file is distributed under the terms of the  *)
(*  GNU Lesser General Public License version 2.1, with the special       *)
(*  exception on linking described in the file LICENSE.                   *)
(*                                                                        *)
(**************************************************************************)

let section = EzAPI.Doc.section "EzLoads"

let service_offset : (float * float, exn, EzAPI.no_security) EzAPI.service0 =
  EzAPI.service ~section ~output:Json_encoding.(tup2 float float)
    EzAPI.Path.(root // "ezloads_offset")

let handler_offset req _ () =
  EzAPIServerUtils.return_ok (req.EzAPI.Req.req_time, Unix.gettimeofday ())

let register dir =
  EzAPIServerUtils.register service_offset handler_offset dir