Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2025-07-06 11:44:56 -04:00
Code Issues Projects Releases Packages Wiki Activity

Merge 2a7de5ecaf into 2fd9e6a136

Browse source
This commit is contained in:
Holger Levsen 2018-03-15 23:49:11 +00:00 • committed by GitHub
commit 7ddeb1e03b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
command.ml
View file

@ -13,7 +13,7 @@ module Log = (val Logs.src_log src : Logs.LOG)
let set_date_time flow = let set_date_time flow =
Flow.read_line flow >|= function Flow.read_line flow >|= function
| `Eof -> Log.warn (fun f -> f "EOF reading time from dom0"); 1 | `Eof -> Log.warn (fun f -> f "EOF reading time from dom0"); 1
| `Ok line -> Log.info (fun f -> f "TODO: set time to %S" line); 0 | `Ok line -> 0 (* TODO: set time to "%S" line *)
let handler ~user:_ cmd flow = let handler ~user:_ cmd flow =
(* Write a message to the client and return an exit status of 1. *) (* Write a message to the client and return an exit status of 1. *)