Source file `github_hooks_unix.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
module Time = struct
  type t = float
  let min = 0.
  let now = Unix.gettimeofday
end

module Server = struct
  include Cohttp_lwt_unix.Server
  type mode = Conduit_lwt_unix.server
  let create mode t = create ~mode:(mode :> mode) t
end

module Make = Github_hooks.Make(Time)(Github)(Server)