1 files changed, 6 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml
index c2d290714b..fb968cc64f 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -34,6 +34,12 @@ let is_blank = function
   | ' ' | '\r' | '\t' | '\n' -> true
   | _ -> false
 
+module Empty =
+struct
+  type t
+  let abort (x : t) = assert false
+end
+
 (* Strings *)
 
 module String : CString.ExtS = CString