Commit 79618a61 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a test for #4007

parent 4d86087d
TOP=../../../.. TOP=../../../..
include $(TOP)/mk/ include $(TOP)/mk/
include $(TOP)/mk/ include $(TOP)/mk/
.PHONY: T4007
$(RM) -f T4007.hi T4007.o
'$(TEST_HC)' -c -O -ddump-rule-firings T4007.hs
module T4007 where
f :: IO ()
f = sequence_ (replicate 10 (putStrLn "yes"))
Rule fired: unpack
Rule fired: Class op >>
Rule fired: Class op return
Rule fired: <=#
Rule fired: fold/build
Rule fired: unpack-list
...@@ -101,3 +101,8 @@ test('T3064', ...@@ -101,3 +101,8 @@ test('T3064',
compile, compile,
['']) [''])
['$MAKE -s --no-print-directory T4007'])
Markdown is supported
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