Commit 7ba8bc19 authored by Camil Staps's avatar Camil Staps 🚀

Clean.PrettyPrint: Fix strictness in tuples

parent 3b2a69cb
......@@ -152,7 +152,7 @@ where
lookup "_#Array" = Yes ("{#" :+: join st " " ats :+: "}")
lookup "_!Array" = Yes ("{!" :+: join st " " ats :+: "}")
lookup name
| name % (0,5) == "_Tuple" = Yes ("(" :+: join st "," ats :+: ")")
| name % (0,5) == "_Tuple" = Yes ("(" :+: join st "," [if s "!" "" :+: a \\ a <- ats & s <- strict] :+: ")")
lookup _ = No
// Type contexts
......
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