Commit e0b932b1 authored by Camil Staps's avatar Camil Staps 🐧

Clean.PrettyPrint: Add case for _Unit; use -> for case instead of =

parent 2b07e8ff
......@@ -19,6 +19,7 @@ where
, ("_nil", "[|]")
, ("_|Nil", "[|]")
, ("_#Nil", "[#]")
, ("_Unit", "()")
]
instance print Import
......
......@@ -165,7 +165,7 @@ where
// Case .. of
instance print CaseAlt
where
print st ca = print st (ca.calt_pattern :+: " = " :+: ca.calt_rhs)
print st ca = print st (ca.calt_pattern :+: " -> " :+: ca.calt_rhs)
// Local definitions
instance Join LocalDefs
......
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