Commit 6d0b3e67 authored by Camil Staps's avatar Camil Staps 🐧

Clean.PrettyPrint: Fix print for [ !]

parent ddcffe17
......@@ -147,7 +147,9 @@ where
lookup "_Unit" = Yes ("()" :+: PrintNil)
lookup "_List" = Yes ("[" :+: join st " " ats :+: "]")
lookup "_!List" = Yes ("[!" :+: join st " " ats :+: "]")
lookup "_List!" = Yes ("[" :+: join st " " ats :+: "!]")
lookup "_List!"
| isEmpty ats = Yes ("[ !]" :+: PrintNil)
| otherwise = Yes ("[" :+: join st " " ats :+: "!]")
lookup "_!List!" = Yes ("[!" :+: join st " " ats :+: "!]")
lookup "_|List" = Yes ("[|" :+: join st " " ats :+: "]")
lookup "_#List" = Yes ("[#" :+: join st " " ats :+: "]")
......
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