From 705286be0aa5ccf28bfcf7152665f6ce3f9a1465 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Sat, 6 Aug 2016 14:03:45 +0200 Subject: [PATCH] Fix parenthesized operator printing --- src/Language/Haskell/Brittany/LayoutBasics.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/Haskell/Brittany/LayoutBasics.hs b/src/Language/Haskell/Brittany/LayoutBasics.hs index 4f44d8c..15c80ad 100644 --- a/src/Language/Haskell/Brittany/LayoutBasics.hs +++ b/src/Language/Haskell/Brittany/LayoutBasics.hs @@ -193,7 +193,7 @@ lrdrNameToTextAnn ast@(L _ n) = do return $ case Map.lookup (ExactPrint.Types.mkAnnKey ast) anns of Nothing -> t Just (ExactPrint.Types.Ann _ _ _ aks _ _) -> case n of - Exact{} -> t + Exact{} | t == Text.pack "()" -> t _ | any (hasUni AnnBackquote) aks -> Text.pack "`" <> t <> Text.pack "`" _ | any (hasUni AnnOpenP) aks -> Text.pack "(" <> t <> Text.pack ")" _ | otherwise -> t