Minimal SQLite key-value store for OCaml
Remove underscore prefix from used binding in SQLite lexer (E335)
+2
-2
+2
-2
lib/lexer.ml
+2
-2
lib/lexer.ml
···
96
96
| '[' -> Parser.IDENT (read_bracket_quoted (Buffer.create 32) lexbuf)
97
97
| '`' -> Parser.IDENT (read_backtick_quoted (Buffer.create 32) lexbuf)
98
98
| '\'' ->
99
-
let _s = read_single_quoted (Buffer.create 32) lexbuf in
99
+
let s = read_single_quoted (Buffer.create 32) lexbuf in
100
100
(* String literals in DDL are typically DEFAULT values;
101
101
treat them as numbers (opaque values) in the token stream *)
102
-
Parser.NUMBER ("'" ^ _s ^ "'")
102
+
Parser.NUMBER ("'" ^ s ^ "'")
103
103
| eof -> Parser.EOF
104
104
| any ->
105
105
(* Pass through operators, signs, etc. as NUMBER tokens *)