blob: 18bd5d53e5cf400ff1f7e84d2416ab4e397bf048 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# 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
|