Commit 10809f56 authored by Artem Alimarine's avatar Artem Alimarine
Browse files

fixed bug with (->): added clean_up for TArrow

parent a907a856
......@@ -149,6 +149,8 @@ where
clean_up cui (TArrow1 argtype) cus
# (argtype, cus) = clean_up cui argtype cus
= (TArrow1 argtype, cus)
clean_up cui t=:TArrow cus
= (t, cus)
//..AA
clean_up cui t=:(TB _) cus
= (t, cus)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment