aboutsummaryrefslogtreecommitdiff
path: root/html-test/src
diff options
context:
space:
mode:
authorMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-04-11 16:58:34 +0100
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-04-11 18:13:30 +0100
commitaf3b1444239027170f5e99a6dd67c1e2c6c44432 (patch)
tree2afa4e4bfafbe1c9492e5fd44e0969cac06e14b9 /html-test/src
parentb4210d41de296ee0f9d212e8d5b9fc186880a3e7 (diff)
Parse identifiers with ^ and ⋆ in them.
Fixes #298.
Diffstat (limited to 'html-test/src')
-rw-r--r--html-test/src/Bug298.hs22
1 files changed, 22 insertions, 0 deletions
diff --git a/html-test/src/Bug298.hs b/html-test/src/Bug298.hs
new file mode 100644
index 00000000..07d6fa0c
--- /dev/null
+++ b/html-test/src/Bug298.hs
@@ -0,0 +1,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 = ()