Permalink
Browse files

add typer support for the new formats

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14822 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent 3f37e56 commit ee9023222079918612155ccc5d1f50da9dfc13f1 @gasche gasche committed May 12, 2014
Showing with 6 additions and 1 deletion.
  1. +6 −1 typing/typecore.ml
View
7 typing/typecore.ml
@@ -2903,7 +2903,12 @@ and type_format loc str env attr =
mk_constr "Ignored_reader" []
| Ignored_scan_char_set (width_opt, char_set) ->
mk_constr "Ignored_scan_char_set" [
- mk_int_opt width_opt; mk_string char_set ] in
+ mk_int_opt width_opt; mk_string char_set ]
+ | Ignored_scan_get_counter counter ->
+ mk_constr "Ignored_scan_get_counter" [
+ mk_counter counter
+ ]
+ in
let mk_padding : type x y . (x, y) padding -> Parsetree.expression =
fun pad -> match pad with
| No_padding -> mk_constr "No_padding" []

0 comments on commit ee90232

Please sign in to comment.