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. --- expression.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'expression.ml') diff --git a/expression.ml b/expression.ml index 31b6369..d42b90e 100755 --- a/expression.ml +++ b/expression.ml @@ -38,7 +38,7 @@ let load content = begin ExpressionParser.content ExpressionLexer.read @@ Lexing.from_string content' in Basic r - with _ -> Basic (ScTypes.Str (UTF8.from_utf8string content')) + with _ -> Basic (ScTypes.string (UTF8.from_utf8string content')) ) ) else ( (* If the string in empty, build an undefined value *) -- cgit v1.2.3