diff options
Diffstat (limited to 'src/expressions/evaluate.ml')
-rw-r--r-- | src/expressions/evaluate.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/expressions/evaluate.ml b/src/expressions/evaluate.ml index fbf2a18..4cf98da 100644 --- a/src/expressions/evaluate.ml +++ b/src/expressions/evaluate.ml @@ -106,6 +106,7 @@ let observe repr catalog = begin (* We can only match numeric formats here *)
| ScTypes.DataFormat.Date -> ScTypes.Result.Ok (ScTypes.Type.date n)
| ScTypes.DataFormat.Number -> ScTypes.Result.Ok (ScTypes.Type.number n)
+ | _ -> raise Errors.TypeError
end
| _ -> raise Errors.TypeError
end
|