1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
From: Stephane Glondu <steph@glondu.net>
Date: Sun, 1 Sep 2019 20:39:35 +0200
Subject: Fix compilation with OCaml 4.08.0
---
src/cairo_png.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/cairo_png.ml b/src/cairo_png.ml
index 78b3166..c4a7024 100644
--- a/src/cairo_png.ml
+++ b/src/cairo_png.ml
@@ -7,7 +7,7 @@
(**************************************************************************)
external image_surface_create_from_stream_unsafe :
- (string -> int -> unit) -> Cairo.image_surface = "ml_cairo_image_surface_create_from_png_stream_unsafe"
+ (bytes -> int -> unit) -> Cairo.image_surface = "ml_cairo_image_surface_create_from_png_stream_unsafe"
let image_surface_create_from_channel ic =
image_surface_create_from_stream_unsafe
|
