Fix tuple parenthesis printing

pull/3/head
Lennart Spitzner 2016-08-11 15:10:25 +02:00
parent 5166b3dd9e
commit 0a41843efd
1 changed files with 1 additions and 0 deletions

View File

@ -195,6 +195,7 @@ lrdrNameToTextAnn ast@(L _ n) = do
Just (ExactPrint.Types.Ann _ _ _ aks _ _) -> case n of
Exact{} | t == Text.pack "()" -> t
_ | any (hasUni AnnBackquote) aks -> Text.pack "`" <> t <> Text.pack "`"
_ | any (hasUni AnnCommaTuple) aks -> t
_ | any (hasUni AnnOpenP) aks -> Text.pack "(" <> t <> Text.pack ")"
_ | otherwise -> t