Commit 7c941855 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test for Trac #1759

parent 6129c42a
......@@ -65,3 +65,4 @@ test('ds058', normal, compile, ['-W'])
test('ds059', normal, compile, ['-W'])
test('ds060', expect_broken(322), compile, [''])
test('ds061', expect_broken(851), compile, [''])
test('ds062', normal, compile, [''])
{-# OPTIONS_GHC -Wall #-}
module ShouldCompile where
f :: String -> Int
f x | null x = 1
| otherwise = 2
-- Should not give a non-exhaustive-patterns error
-- See Trac #1759
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment