diff options
Diffstat (limited to 'expression.ml')
-rwxr-xr-x | expression.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 *)
|