16 lines
464 B
Text
16 lines
464 B
Text
|
Index: src/utils/net/geoip.ml
|
||
|
|
--- src/utils/net/geoip.ml.orig
|
||
|
|
+++ src/utils/net/geoip.ml
|
||
|
|
@@ -225,8 +225,9 @@ type geoip_database = {
|
||
|
|
}
|
||
|
|
|
||
|
|
let new_map file =
|
||
|
|
- Array1.map_file (Unix.descr_of_in_channel file)
|
||
|
|
- int8_unsigned c_layout false (-1)
|
||
|
|
+ Bigarray.array1_of_genarray @@
|
||
|
|
+ Unix.map_file (Unix.descr_of_in_channel file)
|
||
|
|
+ int8_unsigned c_layout false [|-1|]
|
||
|
|
|
||
|
|
let unpack filename =
|
||
|
|
let ext = String.lowercase (Filename2.extension filename) in
|