From 0a41843efdda9595fe6b0f9cbb2d9ce59fc7ff82 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Thu, 11 Aug 2016 15:10:25 +0200 Subject: [PATCH] Fix tuple parenthesis printing --- src/Language/Haskell/Brittany/LayoutBasics.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Language/Haskell/Brittany/LayoutBasics.hs b/src/Language/Haskell/Brittany/LayoutBasics.hs index 03ee920..1fa2b05 100644 --- a/src/Language/Haskell/Brittany/LayoutBasics.hs +++ b/src/Language/Haskell/Brittany/LayoutBasics.hs @@ -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