- cleanup

[helm.git] / matita / components / grafite_parser / grafiteParser.ml

diff --git a/matita/components/grafite_parser/grafiteParser.ml b/matita/components/grafite_parser/grafiteParser.ml
index fb042585aedec3e8703970d2741bc88c9886d406..27634f1c3ddbf8b3afd311417d66b986abc4fb93 100644 (file)
--- a/matita/components/grafite_parser/grafiteParser.ml
+++ b/matita/components/grafite_parser/grafiteParser.ml
@@ -28,12 +28,6 @@
 module N  = NotationPt
 module G  = GrafiteAst
 
-type 'a localized_option =
-   LSome of 'a
- | LNone of G.loc
-
-type ast_statement = G.statement
-
 let exc_located_wrapper f =
   try
     f ()
@@ -611,12 +605,10 @@ EXTEND
     ]
   ];
   statement: [
-    [ ex = executable ->
-         LSome (G.Executable (loc, ex))
-    | com = comment ->
-         LSome (G.Comment (loc, com))
+    [ ex = executable -> G.Executable (loc, ex)
+    | com = comment -> G.Comment (loc, com)
     | (iloc,fname,mode) = include_command ; SYMBOL "."  ->
-              LSome (G.Executable (loc,G.NCommand (loc,G.Include (iloc,mode,fname))))
+              G.Executable (loc,G.NCommand (loc,G.Include (iloc,mode,fname)))
     | EOI -> raise End_of_file
     ]
   ];
@@ -625,7 +617,7 @@ EXTEND
   statement
 ;;
 
-type db = ast_statement localized_option Grammar.Entry.e ;;
+type db = GrafiteAst.statement Grammar.Entry.e ;;
 
 class type g_status =
  object