ocaml sucks...

diff --git a/helm/software/components/grafite/grafiteAstPp.ml b/helm/software/components/grafite/grafiteAstPp.ml
index 44755225b57f01fbe7c12593209ef18ec16d2f82..ba9f87abd2bd6c777efd8894a7ef4d32179db7b6 100644 (file)
--- a/helm/software/components/grafite/grafiteAstPp.ml
+++ b/helm/software/components/grafite/grafiteAstPp.ml
@@ -368,7 +368,7 @@ let pp_command ~term_pp ~obj_pp = function
        | None -> "")
   | Print (_,s) -> "print " ^ s
   | Set (_, name, value) -> Printf.sprintf "set \"%s\" \"%s\"" name value
-  | NObj (_,o)
+  | NObj (_,_)
   | NUnivConstraint (_) -> "not supported"
   | NQed (_) -> "nqed"
   | Pump (_) -> "not supported"