testsuite/tests/numeric/should_run/numrun010.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

-- !!! tests that local fixity declarations work

-- If local fixity decls don't work you get "14"
-- The right answer is "11"

val = 3 +! 4 *! 2
    where (+!) = (+)
          (*!) = (*)
          infixl 6 +!
          infixl 7 *!

main = print val