From 5647171964622a8a170d615f9087aa1f5ec40cbf Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Thu, 28 Dec 2017 18:59:14 +0100 Subject: [PATCH] Stupid fix to avoid new camlp5 bug with int64 literals --- helm/software/components/hmysql/hSqlite3.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/helm/software/components/hmysql/hSqlite3.ml b/helm/software/components/hmysql/hSqlite3.ml index 707b482bc..310893ac5 100644 --- a/helm/software/components/hmysql/hSqlite3.ml +++ b/helm/software/components/hmysql/hSqlite3.ml @@ -114,11 +114,11 @@ let quick_connect | 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 ;; -- 2.39.2