From 9fbc5e48ea8183dda8fdb652364c0c29f8a309d5 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 1 Nov 2017 14:53:09 +0100 Subject: Made scTypes.types private. --- evaluator.ml | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'evaluator.ml') diff --git a/evaluator.ml b/evaluator.ml index f2a49d9..46123cb 100755 --- a/evaluator.ml +++ b/evaluator.ml @@ -309,9 +309,12 @@ let repr mapper value = begin in let Result r = (extract value) in begin match r with - | Data.Bool b -> ScTypes.Result (ScTypes.Bool b) - | Data.Num (format, n) -> ScTypes.Result (ScTypes.Num (format, n)) - | Data.String s -> ScTypes.Result (ScTypes.Str s) + | Data.Bool b -> ScTypes.Result (ScTypes.boolean b) + | Data.String s -> ScTypes.Result (ScTypes.string s) + | Data.Num (format, n) -> begin match ScTypes.get_numeric_type format with + | ScTypes.Date -> ScTypes.Result (ScTypes.date n) + | ScTypes.Number -> ScTypes.Result (ScTypes.number n) + end | _ -> raise Errors.TypeError end end -- cgit v1.2.3