Commit 96bc3947 authored by Camil Staps's avatar Camil Staps 🐧

Update Clean.PrettyPrint.Common for new type of ID_Instance in the compiler

parent d6decc5a
Pipeline #34083 failed with stage
in 1 minute and 56 seconds
......@@ -50,8 +50,8 @@ where
= print st (":: " :+: t :+: ('(',conses,')'))
print st (ID_Record t fields)
= print st (":: " :+: t :+: ('{',fields,'}'))
print st (ID_Instance cls _ (ts, tcs))
= print st (cls :+: join_start st " " ts :+: if (isEmpty tcs) "" (" | " +++ join st " & " tcs))
print st (ID_Instance cls _ ts)
= print st (cls :+: join_start st " " ts)
print st (ID_Generic id _)
= print st ("generic " :+: id)
......
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