X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Fparser.mly;h=7f606ef7f57dba27a73ef73f76e75bca8c057479;hb=deb7edaccefe379139818e8b241844b9a0571651;hp=c59a555069a6052071ec87631c30f3992034b25f;hpb=dbfe6294c7bba85785a0571691d2553364409e25;p=goals.git

diff --git a/src/parser.mly b/src/parser.mly
index c59a555..7f606ef 100644
--- a/src/parser.mly
+++ b/src/parser.mly
@@ -60,7 +60,7 @@ let do_include env loc filename optflag file =
 %}
 
 (* Tokens. *)
-%token <Ast.substs> CODE
+%token <Ast.code> CODE
 %token COLON
 %token COMMA
 %token EQUALS