diff options
author | 2011-11-25 16:18:00 +0000 | |
---|---|---|
committer | 2011-11-25 16:18:00 +0000 | |
commit | 90aab584680d4fab9286eafe0a2e918df8889c53 (patch) | |
tree | 506d3c552aaec6e90158cde307ddd191a2627d12 /tools/fake_ide.ml | |
parent | 624f4dc573c5f7d974af41cbae2b85457ff0f3bb (diff) |
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
Diffstat (limited to 'tools/fake_ide.ml')
-rw-r--r-- | tools/fake_ide.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml index 6ae5f7ea7..e06ebb78e 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))); |