Source file `ptime.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
open Functoria.DSL

type ptime = job

let ptime = Functoria.job
let no_ptime = impl "Mirage_runtime" ptime

let impl sublib =
  let packages =
    [ package ~min:"5.0.0" ~max:"6.0.0" ~sublibs:[ ""; sublib ] "mirage-ptime" ]
  in
  impl ~packages "Mirage_ptime" ptime

let default_ptime = if_impl Key.is_unix (impl "unix") (impl "solo5")
let mock_ptime = impl "mock"