google/ormolu
1
1
Fork 0
mirror of https://github.com/google/ormolu.git synced 2024-09-17 11:17:38 +03:00
Code Issues Projects Releases Wiki Activity

Refactor detection of things that do not require extra parentheses

Browse Source
This commit is contained in:
mrkkrp 2019-06-12 20:10:06 +02:00
parent 057a3cf2ca
commit 0d4da7f4eb
No known key found for this signature in database
GPG Key ID: 8564658B2889FF7C
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Ormolu/Printer/Meat/Common.hs
View File

@ -13,6 +13,7 @@ module Ormolu.Printer.Meat.Common
)
where
import Data.List (isPrefixOf)
import GHC hiding (GhcPs, IE)
import Module (Module (..))
import Name (nameStableString)
@ -68,7 +69,9 @@ p_rdrName l@(L spn _) = located l $ \x -> do
-- NOTE I'm not sure this "stable string" is stable enough, but
-- it looks like this is the most robust way to tell if we're
-- looking at exactly this piece of built-in syntax.
(atom name, nameStableString name `elem` avoidParensStableNames)
( atom name
, "$ghc-prim$GHC.Tuple$" `isPrefixOf` nameStableString name
)
if avoidParens
then m
else parensWrapper (backticksWrapper m)
@ -83,13 +86,3 @@ p_ieWildcard :: IEWildcard -> R ()
p_ieWildcard = \case
NoIEWildcard -> return ()
IEWildcard n -> parens (atom n)
avoidParensStableNames :: [String]
avoidParensStableNames =
[ "$ghc-prim$GHC.Tuple$()"
, "$ghc-prim$GHC.Tuple$(,)"
, "$ghc-prim$GHC.Tuple$(,,)"
, "$ghc-prim$GHC.Tuple$(,,,)"
, "$ghc-prim$GHC.Tuple$(,,,,)"
, "$ghc-prim$GHC.Tuple$(,,,,,)"
]