Add failing test for missing warnings #507

2015-08-05 04:05:43 +02:00
parent 40f0e21fdf
commit 1a53582a21
3 changed files with 11 additions and 0 deletions
--- a/test/data/check-missing-warnings/DesugarWarnings.hs
+++ b/test/data/check-missing-warnings/DesugarWarnings.hs
@@ -0,0 +1,5 @@
+module Warnings (zoo) where
+
+zoo :: [a] -> ()
+zoo x = case x of
+          [] -> undefined