From 5711287dc01133195297cd2309aaca0191c01473 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Mon, 16 Jul 2018 11:52:12 +0200
Subject: Update compilation for windows

---
 src/screen.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/screen.ml')

diff --git a/src/screen.ml b/src/screen.ml
index d168865..e11180b 100755
--- a/src/screen.ml
+++ b/src/screen.ml
@@ -173,7 +173,6 @@ let init () = begin
   let init = Curses.keypad window true
   && Curses.noecho ()
   && Curses.start_color ()
-  && Curses.use_default_colors ()
 
   (* Build the color map *)
   && Curses.init_pair 1 Color.white Color.blue  (* Titles *)
@@ -181,10 +180,10 @@ let init () = begin
   && Curses.init_pair 3 Color.black Color.white (* Selected cell *)
   && Curses.init_pair 4 Color.black Color.red   (* referenced cell *)
   && Curses.init_pair 5 Color.black Color.green (* sink cell *)
-  && Curses.curs_set 0 in
+  in
 
   if not init then
-    raise (Failure "Initialisation")
+    raise (Failure "Could not intialize the screen")
   else
     {
       window = window;
-- 
cgit v1.2.3