diff options
| author | Hugo Herbelin | 2015-12-16 23:23:56 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-12-25 10:59:23 +0100 |
| commit | 83b2b197eb33b78f2e3054819f1a36f971c24426 (patch) | |
| tree | ced469e03dc6847f174e9991fefc820b7e478f1b /grammar | |
| parent | daa7cb065a238c7d4ee394e00315d66d023e5259 (diff) | |
Fixing non exhaustive pattern-matching in 003fe3d5e60b.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/q_util.ml4 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/grammar/q_util.ml4 b/grammar/q_util.ml4 index 19f436f926..76113ad509 100644 --- a/grammar/q_util.ml4 +++ b/grammar/q_util.ml4 @@ -56,6 +56,7 @@ let mlexpr_of_token = function | Tok.IDENT s -> <:expr< Tok.IDENT $mlexpr_of_string s$ >> | Tok.FIELD s -> <:expr< Tok.FIELD $mlexpr_of_string s$ >> | Tok.INT s -> <:expr< Tok.INT $mlexpr_of_string s$ >> +| Tok.INDEX s -> <:expr< Tok.INDEX $mlexpr_of_string s$ >> | Tok.STRING s -> <:expr< Tok.STRING $mlexpr_of_string s$ >> | Tok.LEFTQMARK -> <:expr< Tok.LEFTQMARK >> | Tok.BULLET s -> <:expr< Tok.BULLET $mlexpr_of_string s$ >> |