Corrections for OCaml 4.06.0

1 files changed, 1 insertions, 1 deletions

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