aboutsummaryrefslogtreecommitdiff
path: root/screen.ml
diff options
context:
space:
mode:
Diffstat (limited to 'screen.ml')
-rwxr-xr-xscreen.ml2
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