testsuite/tests/ghc-regress/deSugar/should_compile/T2409.hs


1
2
3
4
5
6
7
8
9
10
11

-- Trac #2409

module ShouldCompile where

 f :: Int -> Int
 f _ | () `seq` False = undefined
     | otherwise = error "XXX"

 g :: Int -> Int
 g _ | () `seq` False = undefined
     | otherwise = error "XXX"