From 483f591f62ad29380463d108ffa12b44cabb4ae7 Mon Sep 17 00:00:00 2001 From: Sander Spies Date: Tue, 21 Jan 2020 14:57:13 +0100 Subject: [PATCH] Typo --- src/passes/2-simplify/cameligo.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/passes/2-simplify/cameligo.ml b/src/passes/2-simplify/cameligo.ml index fb16694fb..d4445c7bd 100644 --- a/src/passes/2-simplify/cameligo.ml +++ b/src/passes/2-simplify/cameligo.ml @@ -36,7 +36,7 @@ module Errors = struct ] in error ~data title message - let unsuppported_let_in_function (patterns : Raw.pattern list) = + let unsupported_let_in_function (patterns : Raw.pattern list) = let title () = "unsupported 'let ... in' function" in let message () = "defining functions via 'let ... in' is not supported yet" in let patterns_loc = @@ -354,7 +354,7 @@ let rec simpl_expression : (* let f p1 ps... = rhs in body *) | (f, p1 :: ps) -> - fail @@ unsuppported_let_in_function (f :: p1 :: ps) + fail @@ unsupported_let_in_function (f :: p1 :: ps) end | Raw.EAnnot a -> let Raw.{inside=expr, _, type_expr; _}, loc = r_split a in