Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / deSugar / should_compile / T2409.hs
1 -- #2409
2
3 module ShouldCompile where
4
5 f :: Int -> Int
6 f _ | () `seq` False = undefined
7 | otherwise = error "XXX"
8
9 g :: Int -> Int
10 g _ | () `seq` False = undefined
11 | otherwise = error "XXX"