Commit 603f543c authored by Camil Staps's avatar Camil Staps 🐧

Clean.Types: fix print instance of Constructor after 4cbc1614

parent 6781a9fe
Pipeline #34850 passed with stage
in 1 minute and 52 seconds
......@@ -161,10 +161,10 @@ where
instance print Constructor
where
print _ {cons_name,cons_args,cons_exi_vars=evars,cons_context=TypeContext c,cons_priority}
print _ {cons_name,cons_args,cons_exi_vars=evars,cons_context=tc=:(TypeContext c),cons_priority}
= if (isEmpty evars) [] ("E." -- printersperse False " " evars -- ": ") --
name -- " " -- prio -- printersperse True " " cons_args --
if (isEmpty c) [] (" & " -- c)
if (isEmpty c) [] (" & " -- tc)
where
(name,prio) = case cons_priority of
Nothing -> ([cons_name], [])
......
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