testsuite/tests/ghc-regress/parser/should_fail/readFail023.hs


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

module ShouldFail where

-- !!! Section precedences

-- check that we're not translating out negative literals too early:
-- the following should be an illegal section because prefix '-' has
-- precedence 6:

k = (-3 **)
  where
	(**) = const
	infixl 7 **