module Language.Egison.Syntax.Pattern.Fixity.Primitive
( andPrecedence
, andAssociativity
, orPrecedence
, orAssociativity
)
where
import Language.Egison.Syntax.Pattern.Fixity.Precedence
( Precedence(..) )
import Language.Egison.Syntax.Pattern.Fixity.Associativity
( Associativity(..) )
andPrecedence :: Precedence
andPrecedence :: Precedence
andPrecedence = Int -> Precedence
Precedence Int
3
orPrecedence :: Precedence
orPrecedence :: Precedence
orPrecedence = Int -> Precedence
Precedence Int
2
andAssociativity :: Associativity
andAssociativity :: Associativity
andAssociativity = Associativity
AssocRight
orAssociativity :: Associativity
orAssociativity :: Associativity
orAssociativity = Associativity
AssocRight