diff options
| author | Niklas Haas <git@nand.wakku.to> | 2014-03-09 16:32:36 +0100 |
|---|---|---|
| committer | Niklas Haas <git@nand.wakku.to> | 2014-03-09 20:02:43 +0100 |
| commit | 68a78932b5b004945f6681bd51e8080e868fc0ee (patch) | |
| tree | 3af2075de738def477a2e9a0fe22c2f9beeca69a /html-test/src | |
| parent | 003f11795e4413abae5275e8a855765c571ccab9 (diff) | |
Group similar fixities together
Identical fixities declared for the same line should now render using
syntax like: infix 4 <, >=, >, <=
Diffstat (limited to 'html-test/src')
| -rw-r--r-- | html-test/src/Operators.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/html-test/src/Operators.hs b/html-test/src/Operators.hs index a2e30c18..f7b4d0ab 100644 --- a/html-test/src/Operators.hs +++ b/html-test/src/Operators.hs @@ -45,11 +45,19 @@ infix 9 ** class a ><> b where type a <>< b :: * data a ><< b - (>><) :: a -> b -> () + (>><), (<<>) :: a -> b -> () + + -- | Multiple fixities + (**>), (**<), (>**), (<**) :: a -> a -> () + infixr 1 ><> infixl 2 <>< infixl 3 ><< infixr 4 >>< +infixl 5 <<> + +infixr 8 **>, >** +infixl 8 **<, <** -- | Type synonym with fixity type (a >-< b) = a <-> b |