From d8ed0babfa1c03c8f1968443a465972bb3bf460c Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Tue, 31 Oct 2017 15:59:38 +0100 Subject: Merged Evaluator types with ScTypes --- sheet.ml | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'sheet.ml') diff --git a/sheet.ml b/sheet.ml index 241039e..67b1ee1 100755 --- a/sheet.ml +++ b/sheet.ml @@ -50,13 +50,8 @@ module Raw = struct *) let get_ref from t ref : ScTypes.result option ScTypes.Refs.range = begin - let extract_values = begin function - | ScTypes.Error e -> raise e - | v -> v - end in - ScTypes.Refs.collect ref - |> ScTypes.Refs.map (fun coord -> Option.map extract_values (get_value coord t)) + |> ScTypes.Refs.map (fun coord -> get_value coord t) end -- cgit v1.2.3