Commit 2fb9d801 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

bug fix: handle FailExpr in copy

parent 7178b50e
......@@ -2003,6 +2003,8 @@ where
copy (TupleSelect tuple_symbol arg_nr expr) cp_info
# (expr, cp_info) = copy expr cp_info
= (TupleSelect tuple_symbol arg_nr expr, cp_info)
copy fail=:(FailExpr _) cp_info
= (fail, cp_info)
copy EE cp_info
= (EE, cp_info)
copy (NoBind ptr) cp_info
......@@ -2112,9 +2114,7 @@ where
(-*->) infixl
(-*->) a b :== a // ---> b
//import RWSDebug
(->>) infixl
(->>) a b :== a // ---> b
(<<-) infixl
......
Supports Markdown
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