From 90aab584680d4fab9286eafe0a2e918df8889c53 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 25 Nov 2011 16:18:00 +0000
Subject: Separated the toplevel interface into a purely declarative module
 with associated types (interface.mli), and an applicative part processing the
 calls (previous ide_intf).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14730 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/fake_ide.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tools')

diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml
index 6ae5f7ea70..e06ebb78e8 100644
--- a/tools/fake_ide.ml
+++ b/tools/fake_ide.ml
@@ -23,7 +23,7 @@ let eval_call (call:'a Ide_intf.call) =
   let xml_answer = Xml_parser.parse p (Xml_parser.SChannel (fst !coqtop)) in
   let res = Ide_intf.to_answer xml_answer in
   prerr_endline (Ide_intf.pr_full_value call res);
-  match res with Ide_intf.Fail _ -> exit 1 | _ -> ()
+  match res with Interface.Fail _ -> exit 1 | _ -> ()
 
 let commands =
   [ "INTERPRAWSILENT", (fun s -> eval_call (Ide_intf.interp (true,false,s)));
-- 
cgit v1.2.3