@@ -67,6 +67,7 @@ prettyParens tipe = parensIf needed (pretty tipe)
68 case tipe of
68 case tipe of
69 Lambda _ _ -> True
69 Lambda _ _ -> True
70+ Data "_List" [_] -> False
70 Data _ [] -> False
71 Data _ [] -> False
71 Data _ _ -> True
72 Data _ _ -> True
72 _ -> False
73 _ -> False