From eea6c106dd959dec19dc70991010bf2008fcf6c6 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 28 Aug 2019 22:44:18 +0200 Subject: Update catalog function register --- src/expressions/eval_ref.ml | 0 src/expressions/evaluate.ml | 1 + src/expressions/show_ref.ml | 0 src/expressions/show_type.ml | 0 src/expressions/sym_ref.ml | 0 src/expressions/sym_type.ml | 0 6 files changed, 1 insertion(+) mode change 100755 => 100644 src/expressions/eval_ref.ml mode change 100755 => 100644 src/expressions/show_ref.ml mode change 100755 => 100644 src/expressions/show_type.ml mode change 100755 => 100644 src/expressions/sym_ref.ml mode change 100755 => 100644 src/expressions/sym_type.ml (limited to 'src/expressions') diff --git a/src/expressions/eval_ref.ml b/src/expressions/eval_ref.ml old mode 100755 new mode 100644 diff --git a/src/expressions/evaluate.ml b/src/expressions/evaluate.ml index fbf2a18..4cf98da 100644 --- a/src/expressions/evaluate.ml +++ b/src/expressions/evaluate.ml @@ -106,6 +106,7 @@ let observe repr catalog = begin (* We can only match numeric formats here *) | ScTypes.DataFormat.Date -> ScTypes.Result.Ok (ScTypes.Type.date n) | ScTypes.DataFormat.Number -> ScTypes.Result.Ok (ScTypes.Type.number n) + | _ -> raise Errors.TypeError end | _ -> raise Errors.TypeError end diff --git a/src/expressions/show_ref.ml b/src/expressions/show_ref.ml old mode 100755 new mode 100644 diff --git a/src/expressions/show_type.ml b/src/expressions/show_type.ml old mode 100755 new mode 100644 diff --git a/src/expressions/sym_ref.ml b/src/expressions/sym_ref.ml old mode 100755 new mode 100644 diff --git a/src/expressions/sym_type.ml b/src/expressions/sym_type.ml old mode 100755 new mode 100644 -- cgit v1.2.3