2018-10-13 23:02:52 +00:00
|
|
|
(* (c) 2018 Hannes Mehnert, all rights reserved *)
|
2018-09-09 18:52:04 +00:00
|
|
|
|
|
|
|
|
open Vmm_core
|
|
|
|
|
|
2018-10-13 23:02:52 +00:00
|
|
|
let handle = function
|
2018-10-22 21:20:00 +00:00
|
|
|
| `Vm_cmd _ -> `Vmmd, `End
|
|
|
|
|
| `Policy_cmd _ -> `Vmmd, `End
|
|
|
|
|
| `Stats_cmd _ -> `Stats, `Read
|
|
|
|
|
| `Console_cmd _ -> `Console, `Read
|
|
|
|
|
| `Log_cmd _ -> `Log, `Read
|
