# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
# Date 1294419411 0
# Node ID ee1f39a1e592c6bace29a4a3b65efb53f8162b0f
# Parent  45846a18c152faebd679a35c03bd730e0c4c4af8
Function to check license expiry

Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>

diff -r 45846a18c152 -r ee1f39a1e592 ocaml/license/license.ml
--- a/ocaml/license/license.ml
+++ b/ocaml/license/license.ml
@@ -154,6 +154,6 @@
 
 (* Calls to obtain info about license *)
 
-let check_expiry l = true
-(*	Unix.time () < l.expiry *)
+let check_expiry l = 
+	Unix.time () < l.expiry