From f5e87b564d4f465b4b752ccd49317008abf1030e Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 24 Oct 2017 14:53:49 +0200
Subject: Rename a function

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

(limited to 'main.ml')

diff --git a/main.ml b/main.ml
index e91a9f5..9ecdf84 100755
--- a/main.ml
+++ b/main.ml
@@ -216,8 +216,7 @@ and command (t, screen) action = begin
       Odf.save t.Sheet.data file;
       normal_mode @@ redraw t screen
   | ("enew", _) -> (* Start a new spreadsheet *)
-      let sheet = Sheet.Raw.create in
-      normal_mode @@ redraw (Sheet.create sheet) screen
+      normal_mode @@ redraw (Sheet.create Sheet.Raw.empty) screen
   | ("q", _) ->  (* Quit *)
       t
   | _ -> normal_mode @@ redraw t screen
@@ -227,7 +226,7 @@ let () = begin
 
   let sheet =
     if Array.length Sys.argv = 1 then
-      Sheet.Raw.create
+      Sheet.Raw.empty
     else
       Odf.load Sys.argv.(1) in
 
-- 
cgit v1.2.3