Commit f2ffb8f0 authored by simonpj's avatar simonpj
Browse files

[project @ 2000-06-26 16:09:40 by simonpj]

Add test for filterFB
parent a3effa29
TOP = ../..
include $(TOP)/mk/
include $(TOP)/mk/
SRC_HC_OPTS += -dcore-lint
include $(TOP)/mk/
{-# OPTIONS -O #-}
-- !!! Test filter fusion
-- In GHC 4.06, the filterFB rule was back to front, which
-- made this program hit the "error foo" case instead of
-- working fine.
module Main where
main :: IO ()
main = print (length (filter (not . foo)
(filter (const False) [Nothing])))
where foo (Just x) = x
foo _ = error "foo"
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment