1 -- !!! Test filter fusion
3 -- In GHC 4.06, the filterFB rule was back to front, which
4 -- made this program hit the "error foo" case instead of
11 main = print (length (filter (not . foo)
12 (filter (const False) [Nothing])))
13 where foo (Just x) = x