diff options
Diffstat (limited to 'expression.ml')
-rwxr-xr-x | expression.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/expression.ml b/expression.ml index c61131e..31b6369 100755 --- a/expression.ml +++ b/expression.ml @@ -35,8 +35,8 @@ let load content = begin with Not_found -> content in
try
let ScTypes.Result r =
- Lexing.from_string content'
- |> ExpressionParser.content ExpressionLexer.read in
+ ExpressionParser.content ExpressionLexer.read
+ @@ Lexing.from_string content' in
Basic r
with _ -> Basic (ScTypes.Str (UTF8.from_utf8string content'))
)
|