objective categorical abstract machine language personal data server
Cast blocks to text as hex on repo import
+2
-2
+2
-2
pegasus/lib/user_store.ml
+2
-2
pegasus/lib/user_store.ml
···
576
576
(fun (cid, data) ->
577
577
let cid_str = escape_sql_string (Cid.to_string cid) in
578
578
let hex_data = bytes_to_hex data in
579
-
Printf.sprintf "('%s', X'%s')" cid_str hex_data )
579
+
Printf.sprintf "('%s', CAST(X'%s' AS TEXT))" cid_str hex_data )
580
580
chunk
581
581
|> String.concat ", "
582
582
in
···
610
610
List.map
611
611
(fun (path, cid, data, since) ->
612
612
let hex_data = bytes_to_hex data in
613
-
Printf.sprintf "('%s', '%s', X'%s', '%s')"
613
+
Printf.sprintf "('%s', '%s', CAST(X'%s' AS TEXT), '%s')"
614
614
(escape_sql_string path)
615
615
(escape_sql_string (Cid.to_string cid))
616
616
hex_data (escape_sql_string since) )