copyright

This commit is contained in:
Hannes Mehnert 2018-10-24 00:13:47 +02:00
parent a064c7f58e
commit 89fea934a7
12 changed files with 20 additions and 2 deletions

View file

@ -1,4 +1,4 @@
(* (c) 2017 Hannes Mehnert, all rights reserved *)
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
open Vmm_core
open Vmm_commands

View file

@ -1,4 +1,4 @@
(* (c) 2017 Hannes Mehnert, all rights reserved *)
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
open Vmm_core

View file

@ -1,3 +1,5 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
open Vmm_core
(** The type of versions of the grammar defined below. *)

View file

@ -1,2 +1,4 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
val compress : ?level:int -> string -> string
val uncompress : string -> (string, unit) result

View file

@ -1,3 +1,5 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
val tmpdir : Fpath.t
val dbdir : Fpath.t

View file

@ -1,3 +1,5 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
val pp_sockaddr : Format.formatter -> Lwt_unix.sockaddr -> unit
val pp_process_status : Format.formatter -> Unix.process_status -> unit

View file

@ -1,3 +1,5 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
open Rresult.R.Infix
open Vmm_core

View file

@ -1,3 +1,4 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
val handle :
'a -> Vmm_commands.version ->

View file

@ -1,3 +1,5 @@
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
val read_tls : Tls_lwt.Unix.t ->
(Vmm_commands.wire, [> `Eof | `Exception | `Toomuch ]) result Lwt.t

View file

@ -1,3 +1,5 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
open Astring
type 'a t = N of 'a option * 'a t String.Map.t

View file

@ -1,3 +1,5 @@
(* (c) 2018 Hannes Mehnert, all rights reserved *)
open Vmm_core
type 'a t

View file

@ -1,3 +1,4 @@
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
type 'a t