module HIndent.Fixity
( fixities
) where
import GHC.Types.Fixity
import Language.Haskell.GhclibParserEx.Fixity
fixities :: [(String, Fixity)]
fixities :: [(String, Fixity)]
fixities = [(String, Fixity)]
baseFixities [(String, Fixity)] -> [(String, Fixity)] -> [(String, Fixity)]
forall a. Semigroup a => a -> a -> a
<> [(String, Fixity)]
lensFixities
lensFixities :: [(String, Fixity)]
lensFixities :: [(String, Fixity)]
lensFixities =
[[(String, Fixity)]] -> [(String, Fixity)]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat
[ Int -> [String] -> [(String, Fixity)]
infixr_
Int
4
[ String
".~"
, String
"%~"
, String
"+~"
, String
"-~"
, String
"*~"
, String
"//~"
, String
"^~"
, String
"^^~"
, String
"**~"
, String
"||~"
, String
"<>~"
, String
"&&~"
, String
"<.~"
, String
"?~"
, String
"<?~"
, String
"%@~"
, String
".@~"
]
, Int -> [String] -> [(String, Fixity)]
infix_
Int
4
[ String
".="
, String
"%="
, String
"+="
, String
"-="
, String
"*="
, String
"//="
, String
"^="
, String
"^^="
, String
"**="
, String
"||="
, String
"<>="
, String
"&&="
, String
"<.="
, String
"?="
, String
"<?="
, String
"%@="
, String
".@="
]
, Int -> [String] -> [(String, Fixity)]
infixr_ Int
2 [String
"<^"]
, Int -> [String] -> [(String, Fixity)]
infixl_ Int
1 [String
"&"]
]