File: config.ml

package info (click to toggle)
ocaml-logs-syslog 0.5.0-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 184 kB
  • sloc: ml: 683; makefile: 3
file content (16 lines) | stat: -rw-r--r-- 361 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
open Mirage

let packages = [
  package "duration";
  package ~sublibs:["mirage"] "logs-syslog";
  package ~sublibs:["lwt"] "logs"
]

let handler =
  foreign ~packages "Unikernel.Main"
    (pclock @-> time @-> stackv4v6 @-> job)

let stack = generic_stackv4v6 default_network

let () =
  register "syslog" [handler $ default_posix_clock $ default_time $ stack]