From de16b4f178a00610db6621f4c9c0fadfe1d6a568 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?L=C3=A9onard=20G=C3=A9rard?= <leonard.gerard@ens.fr>
Date: Thu, 1 Jul 2010 14:42:52 +0200
Subject: [PATCH] typo Mls_{P->p}arser

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

diff --git a/compiler/minils/main/mlsc.ml b/compiler/minils/main/mlsc.ml
index c8f9782..dfe894b 100644
--- a/compiler/minils/main/mlsc.ml
+++ b/compiler/minils/main/mlsc.ml
@@ -22,7 +22,7 @@ let parse parsing_fun lexing_fun lexbuf =
   with
     | Mls_lexer.Lexical_error(err, pos1, pos2) ->
         lexical_error err (Loc(pos1, pos2))
-    | Mls_Parser.Error ->
+    | Mls_parser.Error ->
         let pos1 = Lexing.lexeme_start lexbuf
         and pos2 = Lexing.lexeme_end lexbuf in
         let l = Loc(pos1,pos2) in