Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
f2ffb8f0
Commit
f2ffb8f0
authored
Jun 26, 2000
by
simonpj
Browse files
[project @ 2000-06-26 16:09:40 by simonpj]
Add test for filterFB
parent
a3effa29
Changes
4
Hide whitespace changes
Inline
Side-by-side
ghc/tests/simplCore/should_run/Makefile
0 → 100644
View file @
f2ffb8f0
TOP
=
../..
include
$(TOP)/mk/boilerplate.mk
include
$(TOP)/mk/should_run.mk
SRC_HC_OPTS
+=
-dcore-lint
include
$(TOP)/mk/target.mk
ghc/tests/simplCore/should_run/simplrun001.hs
0 → 100644
View file @
f2ffb8f0
{-# 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"
ghc/tests/simplCore/should_run/simplrun001.stderr
0 → 100644
View file @
f2ffb8f0
Fail: foo
ghc/tests/simplCore/should_run/simplrun001.stdout
0 → 100644
View file @
f2ffb8f0
0
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment