Merge pull request xapi-project#1123 from jonludlam/fix-build

Revert patch 91e03ab

ocaml/xapi/xapi_fist.ml

@@ -85,6 +85,20 @@ let reduce_blob_sync_interval = fistpoint "reduce_blob_sync_interval"
 let reduce_rrd_backup_interval = fistpoint "reduce_rrd_backup_interval"
 let reduce_rra_times = fistpoint "reduce_rra_times"
 
+(** {2 Licensing fist points} *)
+
+(** Reduce the v6-licensing grace period from 30 days to 15 minutes *)
+let reduce_grace_period () = fistpoint "reduce_grace_period"
+
+(** Reduce the v6-licensing upgrade grace period from 4 days to 15 minutes *)
+let reduce_upgrade_grace_period () = fistpoint "reduce_upgrade_grace_period"
+
+(** Set the expiry date of a v6-license to the one in the file *)
+let set_expiry_date () = fistpoint_read "set_expiry_date"
+
+(** Reduce the retry period after obtaining a grace license from 1h to 5min *)
+let reduce_grace_retry_period () = fistpoint "reduce_grace_retry_period"
+
 (** Forces synchronous lifecycle path to defer to the event thread *)
 let disable_sync_lifecycle_path () = fistpoint "disable_sync_lifecycle_path"