summaryrefslogtreecommitdiff
path: root/testsuite/tests/typecheck/should_compile
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/typecheck/should_compile')
-rw-r--r--testsuite/tests/typecheck/should_compile/T9497a.hs2
-rw-r--r--testsuite/tests/typecheck/should_compile/T9497a.stderr6
-rw-r--r--testsuite/tests/typecheck/should_compile/T9497b.hs2
-rw-r--r--testsuite/tests/typecheck/should_compile/T9497b.stderr0
-rw-r--r--testsuite/tests/typecheck/should_compile/T9497c.hs2
-rw-r--r--testsuite/tests/typecheck/should_compile/T9497c.stderr0
-rw-r--r--testsuite/tests/typecheck/should_compile/all.T3
7 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_compile/T9497a.hs b/testsuite/tests/typecheck/should_compile/T9497a.hs
new file mode 100644
index 0000000000..fa30912352
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T9497a.hs
@@ -0,0 +1,2 @@
+main :: IO ()
+main = _main
diff --git a/testsuite/tests/typecheck/should_compile/T9497a.stderr b/testsuite/tests/typecheck/should_compile/T9497a.stderr
new file mode 100644
index 0000000000..763fbaea33
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T9497a.stderr
@@ -0,0 +1,6 @@
+
+T9497a.hs:2:8: Warning:
+ Found hole ‘_main’ with type: IO ()
+ Relevant bindings include main :: IO () (bound at T9497a.hs:2:1)
+ In the expression: _main
+ In an equation for ‘main’: main = _main
diff --git a/testsuite/tests/typecheck/should_compile/T9497b.hs b/testsuite/tests/typecheck/should_compile/T9497b.hs
new file mode 100644
index 0000000000..fa30912352
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T9497b.hs
@@ -0,0 +1,2 @@
+main :: IO ()
+main = _main
diff --git a/testsuite/tests/typecheck/should_compile/T9497b.stderr b/testsuite/tests/typecheck/should_compile/T9497b.stderr
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T9497b.stderr
diff --git a/testsuite/tests/typecheck/should_compile/T9497c.hs b/testsuite/tests/typecheck/should_compile/T9497c.hs
new file mode 100644
index 0000000000..fa30912352
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T9497c.hs
@@ -0,0 +1,2 @@
+main :: IO ()
+main = _main
diff --git a/testsuite/tests/typecheck/should_compile/T9497c.stderr b/testsuite/tests/typecheck/should_compile/T9497c.stderr
new file mode 100644
index 0000000000..e69de29bb2
--- /dev/null
+++ b/testsuite/tests/typecheck/should_compile/T9497c.stderr
diff --git a/testsuite/tests/typecheck/should_compile/all.T b/testsuite/tests/typecheck/should_compile/all.T
index 8acfa4aa53..b16ff4309d 100644
--- a/testsuite/tests/typecheck/should_compile/all.T
+++ b/testsuite/tests/typecheck/should_compile/all.T
@@ -428,3 +428,6 @@ test('T9404b', normal, compile, [''])
test('T7220', normal, compile, [''])
test('T7220a', normal, compile_fail, [''])
test('T9151', normal, compile, [''])
+test('T9497a', normal, compile, ['-fdefer-typed-holes'])
+test('T9497b', normal, compile, ['-fdefer-typed-holes -fno-warn-typed-holes'])
+test('T9497c', normal, compile, ['-fdefer-type-errors -fno-warn-typed-holes'])