diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2017-10-24 14:53:49 +0200 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2017-10-24 14:53:49 +0200 |
commit | f5e87b564d4f465b4b752ccd49317008abf1030e (patch) | |
tree | e24a3f4edad3db1de06f77f3dafe444ec7c0de60 /main.ml | |
parent | e1e736840ed8c925e2ff442861963250a72d4385 (diff) |
Rename a function
Diffstat (limited to 'main.ml')
-rwxr-xr-x | main.ml | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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 |