From 7414893cd5e5b537a927986eaa11a1364d4fdcc3 Mon Sep 17 00:00:00 2001 From: Pierre-Emmanuel Wulfman Date: Wed, 24 Jul 2019 09:35:22 +0000 Subject: [PATCH] FIX - typo in error message in ast_simplified/combinator.ml --- src/ast_simplified/combinators.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ast_simplified/combinators.ml b/src/ast_simplified/combinators.ml index 9fcb96afd..e130e033c 100644 --- a/src/ast_simplified/combinators.ml +++ b/src/ast_simplified/combinators.ml @@ -148,7 +148,7 @@ let get_e_pair = fun t -> let get_e_list = fun t -> match t with | E_list lst -> ok lst - | _ -> simple_fail "not a pair" + | _ -> simple_fail "not a list" let get_e_failwith = fun e -> match Location.unwrap e with