Add constrained_t to fold

2022-06-20 10:23:39 +04:00 · 2022-06-20 10:23:39 +04:00 · 21cc6f2b3e
commit 21cc6f2b3e
parent e8da0a7cfe
1 changed files with 1 additions and 0 deletions
--- a/src/aeso_syntax_utils.erl
+++ b/src/aeso_syntax_utils.erl
@ -61,6 +61,7 @@ fold(Alg = #alg{zero = Zero, plus = Plus, scoped = Scoped}, Fun, K, X) ->
            {fun_t, _, Named, Args, Ret} -> Type([Named, Args, Ret]);
            {app_t, _, T, Ts}            -> Type([T | Ts]);
            {tuple_t, _, Ts}             -> Type(Ts);
+            {constrained_t, _, _, T}     -> Type(T);
            %% named_arg_t()
            {named_arg_t, _, _, T, E} -> Plus(Type(T), Expr(E));
            %% expr()