summaryrefslogtreecommitdiff
path: root/tests/examples/failing
diff options
context:
space:
mode:
authorAlanZimmerman <>2016-06-02 20:23:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-06-02 20:23:00 (GMT)
commit14de25e84672eee5b67872562133273edeac63a7 (patch)
tree72e91d362484c9d606d762ae0e52d1d5b020de79 /tests/examples/failing
parent4596abb8eb1744e1e371543a13d8e147b3da9d2c (diff)
version 0.5.1.00.5.1.0
Diffstat (limited to 'tests/examples/failing')
-rw-r--r--tests/examples/failing/OverloadedLabelsRun04_A.hs8
-rw-r--r--tests/examples/failing/overloadedlabelsrun04.hs13
-rw-r--r--tests/examples/failing/overloadedlabelsrun04.hs.bad18
3 files changed, 39 insertions, 0 deletions
diff --git a/tests/examples/failing/OverloadedLabelsRun04_A.hs b/tests/examples/failing/OverloadedLabelsRun04_A.hs
new file mode 100644
index 0000000..e3b38c2
--- /dev/null
+++ b/tests/examples/failing/OverloadedLabelsRun04_A.hs
@@ -0,0 +1,8 @@
+{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, TemplateHaskell #-}
+module OverloadedLabelsRun04_A where
+
+import GHC.OverloadedLabels
+import Language.Haskell.TH
+
+instance IsLabel x (Q [Dec]) where
+ fromLabel _ = [d| main = putStrLn "Ok" |]
diff --git a/tests/examples/failing/overloadedlabelsrun04.hs b/tests/examples/failing/overloadedlabelsrun04.hs
new file mode 100644
index 0000000..8794a87
--- /dev/null
+++ b/tests/examples/failing/overloadedlabelsrun04.hs
@@ -0,0 +1,13 @@
+{-# LANGUAGE OverloadedLabels, TemplateHaskell #-}
+
+import OverloadedLabelsRun04_A
+
+-- Who knew that there were so many ways that a line could start with
+-- a # sign in Haskell? None of these are overloaded labels:
+#line 7 "overloadedlabelsrun04.hs"
+# 8 "overloadedlabelsrun04.hs"
+#!notashellscript
+#pragma foo
+
+-- But this one is:
+#foo
diff --git a/tests/examples/failing/overloadedlabelsrun04.hs.bad b/tests/examples/failing/overloadedlabelsrun04.hs.bad
new file mode 100644
index 0000000..18f320f
--- /dev/null
+++ b/tests/examples/failing/overloadedlabelsrun04.hs.bad
@@ -0,0 +1,18 @@
+{-# LANGUAGE OverloadedLabels, TemplateHaskell #-}
+
+import OverloadedLabelsRun04_A
+
+
+
+
+
+#!notashellscript
+
+-- But this one is:
+-- a # sign in Haskell? None of these are overloaded labels:
+
+
+
+
+
+#foo