Good:

[helm.git] / helm / software / components / ng_refiner / nCicCoercion.ml

diff --git a/helm/software/components/ng_refiner/nCicCoercion.ml b/helm/software/components/ng_refiner/nCicCoercion.ml
index d7fef8d8f9226ba93537ccdca931bdcc23c684d0..29fe0fd540d48924dd06a8b52c319cc9497848bb 100644 (file)
--- a/helm/software/components/ng_refiner/nCicCoercion.ml
+++ b/helm/software/components/ng_refiner/nCicCoercion.ml
@@ -31,7 +31,9 @@ class status =
   val db = empty_db
   method coerc_db = db
   method set_coerc_db v = {< db = v >}
-  method set_coercion_status (o : status) = {< db = o#coerc_db >}
+  method set_coercion_status
+   : 'status. < coerc_db : db; .. > as 'status -> 'self
+   = fun o -> {< db = o#coerc_db >}
  end
 
 let index_coercion status c src tgt arity arg =