diff options
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/asyncTaskQueue.ml | 2 | ||||
| -rw-r--r-- | stm/stm.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index a356f32e9d..e2bce1a96c 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -59,7 +59,7 @@ module Make(T : Task) () = struct type request = Request of T.request type more_data = - | MoreDataUnivLevel of Univ.universe_level list + | MoreDataUnivLevel of Univ.Level.t list let slave_respond (Request r) = let res = T.perform r in diff --git a/stm/stm.ml b/stm/stm.ml index 6c22d3771d..b394c3a135 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1749,7 +1749,7 @@ end (* }}} *) and TacTask : sig - type output = (Constr.constr * Evd.evar_universe_context) option + type output = (Constr.constr * UState.t) option type task = { t_state : Stateid.t; t_state_fb : Stateid.t; @@ -1763,7 +1763,7 @@ and TacTask : sig end = struct (* {{{ *) - type output = (Constr.constr * Evd.evar_universe_context) option + type output = (Constr.constr * UState.t) option let forward_feedback msg = Hooks.(call forward_feedback msg) @@ -1785,7 +1785,7 @@ end = struct (* {{{ *) r_name : string } type response = - | RespBuiltSubProof of (Constr.constr * Evd.evar_universe_context) + | RespBuiltSubProof of (Constr.constr * UState.t) | RespError of Pp.t | RespNoProgress |