Made scTypes.types private.

1 files changed, 6 insertions, 3 deletions

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