From 6e9cd7f49027763cb274d13dd0cc0db785fc82a6 Mon Sep 17 00:00:00 2001
From: Adrien Guatto <adrien.guatto@laposte.net>
Date: Wed, 30 Jun 2010 14:11:13 +0200
Subject: [PATCH] Fixed missing error reporting.

---
 compiler/heptagon/main/hept_compiler.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/heptagon/main/hept_compiler.ml b/compiler/heptagon/main/hept_compiler.ml
index cdc5f56..d080d52 100644
--- a/compiler/heptagon/main/hept_compiler.ml
+++ b/compiler/heptagon/main/hept_compiler.ml
@@ -20,7 +20,7 @@ let parse parsing_fun lexing_fun lexbuf =
   with
     | Hept_lexer.Lexical_error(err, pos1, pos2) ->
         lexical_error err (Loc(pos1, pos2))
-    | Parsing.Parse_error ->
+    | Hept_parser.Error ->
         let pos1 = Lexing.lexeme_start lexbuf
         and pos2 = Lexing.lexeme_end lexbuf in
         let l = Loc(pos1,pos2) in