1 files changed, 3 insertions, 5 deletions
diff --git a/odf/odf.ml b/odf/odf.ml
index b091bc9..8fa3411 100755
--- a/odf/odf.ml
+++ b/odf/odf.ml
@@ -30,17 +30,15 @@ let load_formula formula =
 
 let load_content content = begin function
   | "float" -> Expression.Basic (
-      ScTypes.Num (
-        ScTypes.Number,
+      ScTypes.number (
         DataType.Num.of_num (Tools.Num.of_float_string content)
       ))
   | "date"  -> Expression.Basic (
-      ScTypes.Num (
-        ScTypes.Date,
+      ScTypes.date (
         DataType.Num.of_num (Tools.Num.of_float_string content)
       ))
   | _ -> Expression.Basic (
-      ScTypes.Str (
+      ScTypes.string (
         UTF8.from_utf8string content))
 end