@@ -128,7 +128,9 @@ instance Pretty def => Pretty (Expr' def) where
128 pretty' (p,b) = pretty p <+> P.text "->" <+> pretty b
128 pretty' (p,b) = pretty p <+> P.text "->" <+> pretty b
129 Data "::" [hd,tl] -> pretty hd <+> P.text "::" <+> pretty tl
129 Data "::" [hd,tl] -> pretty hd <+> P.text "::" <+> pretty tl
130 Data "[]" [] -> P.text "[]"
130 Data "[]" [] -> P.text "[]"
132+ | Help.isTuple name -> P.parens (commaCat (map pretty es))
131− Data name es -> P.hang (P.text name) 2 (P.sep (map prettyParens es))
133+ | otherwise -> P.hang (P.text name) 2 (P.sep (map prettyParens es))
132 Access e x -> prettyParens e <> P.text "." <> variable x
134 Access e x -> prettyParens e <> P.text "." <> variable x
133 Remove e x -> P.braces (pretty e <+> P.text "-" <+> variable x)
135 Remove e x -> P.braces (pretty e <+> P.text "-" <+> variable x)
134 Insert (Location.L _ (Remove e y)) x v ->
136 Insert (Location.L _ (Remove e y)) x v ->