package vif

  1. Overview
  2. Docs
A simple web framework for OCaml 5

Install 

dune-project
 Dependency

github.com Readme Changelog MIT License Edit opam file Versions (6)

Authors

  1. R
    Robur <team@robur.coop>

Maintainers

  1. R
    Robur <team@robur.coop>

Sources

vif-0.0.1.beta6.tbz
sha256=98c4b7959e5a2289179e26c4c378720f4c60b920bf5be2c1c1ba8bac82b4230b
sha512=20c155e32073ccee63996f8012d1dadfae6c0f7a8f838729566d36b426a26953be94ce0edf4e6a47007f1b9b0af45a028667258d7b14bbcbc282b099feae0f33

doc/src/vif.core/vif_server.ml.html

Source file vif_server.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type t = {
    devices: Vif_device.Hmap.t
  ; cookie_key: Mirage_crypto.AES.GCM.key
  ; metrics: Vif_metrics.t
}

let metrics t = t.metrics

let device : type a. ('value, a) Vif_device.device -> t -> a =
 fun (Vif_device.Device (_, _, k)) { devices; _ } ->
  match Vif_device.Hmap.find k devices with
  | Some value -> value
  | None ->
      Fmt.failwith "Device %s not found"
        (Vif_device.Hmap.Key.info k).Vif_device.Device.name

let cookie_key { cookie_key; _ } = cookie_key