Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / deSugar / should_compile / ds062.hs
1 {-# OPTIONS_GHC -Wall #-}
2
3 module ShouldCompile where
4
5 f :: String -> Int
6 f x | null x = 1
7 | otherwise = 2
8
9 -- Should not give a non-exhaustive-patterns error
10 -- See #1759
11