Fix the build script.

[tatoo.git] / src / utils / pretty.ml

diff --git a/src/utils/pretty.ml b/src/utils/pretty.ml
index a7434b1..1927216 100644 (file)
--- a/src/utils/pretty.ml
+++ b/src/utils/pretty.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-04 18:46:09 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-09 10:41:21 CET by Kim Nguyen>
 *)
 
 open Format
@@ -99,6 +99,7 @@ let vee = "∨"
 let top = "⊤"
 let bottom = "⊥"
 let dummy = "☠"
+let inverse = "⁻¹"
 let double_right_arrow = "⇒"
 let combining_overbar = "\204\133"
 let combining_underbar = "\204\178"
@@ -124,7 +125,7 @@ let pp_underline = ppf underline
 let pp_strike = ppf strike
 let pp_subscript = ppf subscript
 let pp_superscript = ppf superscript
-let dummy_printer fmt () = ()
+let dummy_printer _ () = ()
 
 let pp_print_list ?(sep=dummy_printer) printer fmt l =
   match l with