aboutsummaryrefslogblamecommitdiff
path: root/html-test/src/Bug298.hs
blob: 07d6fa0ca2f6a932fe204314d48e1023cd7c8db8 (plain) (tree)




















                                                                                
-- 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 = ()