summaryrefslogtreecommitdiff
path: root/testsuite/tests/deSugar/should_compile/T2409.hs
blob: 163786bb58ad4b26a25c4be95e64d2fbecb0458d (plain)
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"