blob: 07d6fa0ca2f6a932fe204314d48e1023cd7c8db8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
-- We introduced a regression in 2.14.x where we don't consider
-- identifiers with ^ as valid. We test that the regression goes away
-- here. It's a silly typo in the parser, really. Same with ★ which is a valid
-- symbol according to the 2010 report.
module Bug298 where
(<^>) :: (a -> a) -> a -> a
x <^> y = x y
(<^) :: a -> a -> a
x <^ y = x
(^>) :: a -> a -> a
x ^> y = y
(⋆^) :: a -> a -> a
x ⋆^ y = y
-- | Links to '<^>' and '^>', '<^' and '⋆^'.
f :: ()
f = ()
|
