module Floskell.Fixities ( builtinFixities, packageFixities ) where
import Language.Haskell.Exts.Fixity
( Fixity, baseFixities, infix_, infixl_, infixr_ )
builtinFixities :: [Fixity]
builtinFixities :: [Fixity]
builtinFixities = ((String, [Fixity]) -> [Fixity])
-> [(String, [Fixity])] -> [Fixity]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap (String, [Fixity]) -> [Fixity]
forall a b. (a, b) -> b
snd [(String, [Fixity])]
packageFixities
packageFixities :: [(String, [Fixity])]
packageFixities :: [(String, [Fixity])]
packageFixities = [ (String
"base", [Fixity]
baseFixities)
, (String
"aeson", [Fixity]
aesonFixities)
, (String
"conduit", [Fixity]
conduitFixities)
, (String
"lens", [Fixity]
lensFixities)
, (String
"pipes", [Fixity]
pipesFixities)
, (String
"servant", [Fixity]
servantFixities)
]
aesonFixities :: [Fixity]
aesonFixities :: [Fixity]
aesonFixities =
Int -> [String] -> [Fixity]
infixr_ Int
8 [ String
".=" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
6 [ String
">*<" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
6 [ String
"><" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
6 [ String
"<^>" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
4 [ String
"<%>" ]
conduitFixities :: [Fixity]
conduitFixities :: [Fixity]
conduitFixities =
Int -> [String] -> [Fixity]
infixr_ Int
0 [ String
"$$" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
1 [ String
"$=" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
2 [ String
"=$" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
2 [ String
"=$=" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
0 [ String
"$$+" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
0 [ String
"$$++" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
0 [ String
"$$+-" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
1 [ String
"$=+" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
2 [ String
".|" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
0 [ String
"=$$+" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
0 [ String
"=$$++" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
0 [ String
"=$$+-" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
9 [ String
"<+<" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
9 [ String
">+>" ]
lensFixities :: [Fixity]
lensFixities :: [Fixity]
lensFixities =
Int -> [String] -> [Fixity]
infixr_ Int
4 [ String
"</>~", String
"<</>~", String
"<<</>~", String
"<.>~", String
"<<.>~", String
"<<<.>~" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infix_ Int
4 [ String
"</>=", String
"<</>=", String
"<<</>=", String
"<.>=", String
"<<.>=", String
"<<<.>=" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
4 [ String
".|.~", String
".&.~", String
"<.|.~", String
"<.&.~", String
"<<.|.~", String
"<<.&.~" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infix_ Int
4 [ String
".|.=", String
".&.=", String
"<.|.=", String
"<.&.=", String
"<<.|.=", String
"<<.&.=" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
8 [ String
"^..", String
"^?", String
"^?!", String
"^@..", String
"^@?", String
"^@?!" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
9 [ String
"<.>", String
"<.", String
".>" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
4
[ String
"%@~"
, String
".@~"
, String
".~"
, String
"+~"
, String
"*~"
, String
"-~"
, String
"//~"
, String
"^~"
, String
"^^~"
, String
"**~"
, String
"&&~"
, String
"<>~"
, String
"||~"
, String
"%~"
, String
"<.~"
, String
"?~"
, String
"<?~"
]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infix_ Int
4
[ String
"%@="
, String
".@="
, String
".="
, String
"+="
, String
"*="
, String
"-="
, String
"//="
, String
"^="
, String
"^^="
, String
"**="
, String
"&&="
, String
"<>="
, String
"||="
, String
"%="
, String
"<.="
, String
"?="
, String
"<?="
] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
2 [ String
"<~" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
5 [ String
"<|", String
"`cons`" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
5 [ String
"|>", String
"`snoc`" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
5 [ String
":<" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
5 [ String
":>" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
9 [ String
"..." ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
8 [ String
"^.", String
"^@." ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
2 [ String
"`zoom`", String
"`magnify`" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
8 [ String
"^#" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
4
[ String
"%%@~"
, String
"<%@~"
, String
"<<%@~"
, String
"%%~"
, String
"<+~"
, String
"<*~"
, String
"<-~"
, String
"<//~"
, String
"<^~"
, String
"<^^~"
, String
"<**~"
, String
"<&&~"
, String
"<||~"
, String
"<<>~"
, String
"<%~"
, String
"<<%~"
, String
"<<.~"
, String
"<<?~"
, String
"<#~"
, String
"#~"
, String
"#%~"
, String
"<#%~"
, String
"#%%~"
]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infix_ Int
4
[ String
"%%@="
, String
"<%@="
, String
"<<%@="
, String
"%%="
, String
"<+="
, String
"<*="
, String
"<-="
, String
"<//="
, String
"<^="
, String
"<^^="
, String
"<**="
, String
"<&&="
, String
"<||="
, String
"<<>="
, String
"<%="
, String
"<<%="
, String
"<<.="
, String
"<<?="
, String
"<#="
, String
"#="
, String
"#%="
, String
"<#%="
, String
"#%%="
] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
2 [ String
"<<~" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
1 [ String
"??", String
"&~" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
1 [ String
"&" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
1 [ String
"<&>" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
8 [ String
"#" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
5 [ String
"`failing`" ]
pipesFixities :: [Fixity]
pipesFixities :: [Fixity]
pipesFixities =
Int -> [String] -> [Fixity]
infixl_ Int
4 [ String
"<~" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
4 [ String
"~>" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
5 [ String
"~<" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
5 [ String
">~" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
7 [ String
">->" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
7 [ String
"<-<" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
3 [ String
"//>" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
3 [ String
"<\\\\" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
4 [ String
"/>/", String
">\\\\" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
4 [ String
"\\<\\", String
"//<" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
5 [ String
"\\>\\" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
5 [ String
"/</" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
6 [ String
"<<+" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
6 [ String
"+>>" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
7 [ String
">+>", String
">>~" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
7 [ String
"<+<", String
"~<<" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
8 [ String
"<~<" ] [Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
8 [ String
">~>" ]
servantFixities :: [Fixity]
servantFixities :: [Fixity]
servantFixities =
Int -> [String] -> [Fixity]
infixr_ Int
4 [ String
":>" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixr_ Int
3 [ String
":<|>" ]
[Fixity] -> [Fixity] -> [Fixity]
forall a. [a] -> [a] -> [a]
++ Int -> [String] -> [Fixity]
infixl_ Int
0 [ String
":-" ]