fay-0.19: tests/seq-fake.hs

module SeqFake where

fakeSeq :: a -> b -> b
fakeSeq x y = y

main = error "You shall not pass!" `fakeSeq` return ()