From df4778f2f061c71cf1d9e51fe8ec657d04bbdfeb Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Wed, 22 Nov 2017 15:31:29 +0100
Subject: Corrections for OCaml 4.06.0

---
 screen.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'screen.ml')

diff --git a/screen.ml b/screen.ml
index a8e2d0c..8279c62 100755
--- a/screen.ml
+++ b/screen.ml
@@ -54,7 +54,7 @@ let status screen msg = begin
   let height, width = screen.size in
   UTF8.encode msg |> Option.iter (fun encoded ->
     let status = Bytes.make (width -1) ' ' in
-    Bytes.blit encoded 0 status 0 (String.length encoded);
+    String.blit encoded 0 status 0 (String.length encoded);
     Curses.werase screen.status;
     if not (
       Curses.mvwaddstr screen.status 0 0 encoded
-- 
cgit v1.2.3