From 1bbeba35eb385f813a0e4b6d25a437f9bab8191b Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 18 Jun 2018 14:32:58 +0200
Subject: Fixing a batch of deprecation warnings.

---
 src/tac2stdlib.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/tac2stdlib.ml')

diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml
index be7c76744d..ffef2c05fd 100644
--- a/src/tac2stdlib.ml
+++ b/src/tac2stdlib.ml
@@ -194,10 +194,10 @@ let to_inversion_kind v = match Value.to_int v with
 let inversion_kind = make_to_repr to_inversion_kind
 
 let to_move_location = function
-| ValInt 0 -> Misctypes.MoveFirst
-| ValInt 1 -> Misctypes.MoveLast
-| ValBlk (0, [|id|]) -> Misctypes.MoveAfter (Value.to_ident id)
-| ValBlk (1, [|id|]) -> Misctypes.MoveBefore (Value.to_ident id)
+| ValInt 0 -> Logic.MoveFirst
+| ValInt 1 -> Logic.MoveLast
+| ValBlk (0, [|id|]) -> Logic.MoveAfter (Value.to_ident id)
+| ValBlk (1, [|id|]) -> Logic.MoveBefore (Value.to_ident id)
 | _ -> assert false
 
 let move_location = make_to_repr to_move_location
@@ -424,7 +424,7 @@ let () = define_prim2 "tac_move" ident move_location begin fun id mv ->
 end
 
 let () = define_prim2 "tac_intro" (option ident) (option move_location) begin fun id mv ->
-  let mv = Option.default Misctypes.MoveLast mv in
+  let mv = Option.default Logic.MoveLast mv in
   Tactics.intro_move id mv
 end
 
-- 
cgit v1.2.3