Commit f02c915c authored by Simon Peyton Jones's avatar Simon Peyton Jones

Make this test a bit simpler

There were two unrelated functions, and the `-ddump-rule-firings` output
was coming in a non-deterministic order as a result. So now there is just
one function.
parent 652a5efe
module T6056 where
import T6056a
foo1 :: Int -> (Maybe Int, [Int])
foo1 x = smallerAndRest x [x]
foo :: Int -> (Maybe Int, [Int])
foo x = smallerAndRest x [x]
foo2 :: Integer -> (Maybe Integer, [Integer])
foo2 x = smallerAndRest x [x]
Rule fired: foldr/nil
Rule fired: foldr/nil
Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
Rule fired: Class op <
Rule fired: Class op <
Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
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