| Sqlite3.Data.TEXT rex, Sqlite3.Data.TEXT s ->
let r = Str.regexp rex in
if Str.string_match r s 0 then
- Sqlite3.Data.INT 1L
+ Sqlite3.Data.INT Int64.one
else
- Sqlite3.Data.INT 0L
+ Sqlite3.Data.INT Int64.zero
| _ -> raise (Error "wrong types to 'REGEXP'")
- with Sys.Break -> Sqlite3.Data.INT 0L
+ with Sys.Break -> Sqlite3.Data.INT Int64.zero
| exn -> HLog.error (Printexc.to_string exn); raise exn);
Some db
;;