ghc/tests/numeric/should_run/num010.hs

   1 -- !!! tests that local fixity declarations work
   2
   3 -- If local fixity decls don't work you get "14"
   4 -- The right answer is "11"
   5
   6 val = 3 +! 4 *! 2
   7     where (+!) = (+)
   8           (*!) = (*)
   9           infixl 6 +!
  10           infixl 7 *!
  11
  12 main = print val
  13