@@ -59,6 +59,9 @@ toDoc context tipe =
59 P.text (if name == "_Tuple0" then "()" else name)
59 P.text (if name == "_Tuple0" then "()" else name)
61 App (Type name) args
61 App (Type name) args
62+ | name == "_Tuple0" ->
62 | Help.isTuple name ->
65 | Help.isTuple name ->
64 [ P.cat (zipWith (<+>) (P.lparen : repeat P.comma) (map (toDoc None) args))
67 [ P.cat (zipWith (<+>) (P.lparen : repeat P.comma) (map (toDoc None) args))