Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
0cb1b0e3
Commit
0cb1b0e3
authored
Sep 15, 2010
by
simonpj
Browse files
Test Trac
#4201
(eta reduction)
parent
33720956
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/simplCore/should_compile/Makefile
View file @
0cb1b0e3
...
...
@@ -17,3 +17,8 @@ T4306:
'
$(TEST_HC)
'
-c
-O
T4306.hs
'
$(TEST_HC)
'
--show-iface
T4306.hi |
grep
'wupd ::'
T4201
:
$(RM)
-f
rm
-f
T4201.hi T4201.o
'
$(TEST_HC)
'
-c
-O
T4201.hs
'
$(TEST_HC)
'
--show-iface
T4201.hi |
grep
'Unfolding.*sym'
testsuite/tests/ghc-regress/simplCore/should_compile/T4201.hs
0 → 100644
View file @
0cb1b0e3
module
Eta
where
data
T
=
MkT
newtype
Foo
=
Foo
T
lift
::
Foo
->
T
lift
(
Foo
x
)
=
bof
x
-- The point is that we expect
-- lift = bof |> co
-- not
-- lift = \fx -> bof (fx |> co)
bof
::
T
->
T
{-# NOINLINE bof #-}
bof
MkT
=
MkT
testsuite/tests/ghc-regress/simplCore/should_compile/T4201.stdout
0 → 100644
View file @
0cb1b0e3
Unfolding: (Eta.bof `cast` (sym Eta.NTCo:Foo -> Eta.T)) -}
testsuite/tests/ghc-regress/simplCore/should_compile/all.T
View file @
0cb1b0e3
...
...
@@ -73,6 +73,11 @@ test('T4306',
run_command
,
['
$MAKE -s --no-print-directory T4306
'])
test
('
T4201
',
normal
,
run_command
,
['
$MAKE -s --no-print-directory T4201
'])
test
('
T3772
',
# only_ways(['optc','optasm']),
extra_clean
(['
T3772_A.hi
',
'
T3772_A.o
']),
...
...
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