[commit: ghc] wip/new-flatten-skolems-Oct14: Make this test a bit simpler (a59bfa9)

git at git.haskell.org git at git.haskell.org
Fri Oct 31 17:46:23 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/new-flatten-skolems-Oct14
Link       : http://ghc.haskell.org/trac/ghc/changeset/a59bfa9f55af50abfad1f5349f9b69cfc39bd226/ghc

>---------------------------------------------------------------

commit a59bfa9f55af50abfad1f5349f9b69cfc39bd226
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Oct 31 12:28:42 2014 +0000

    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.


>---------------------------------------------------------------

a59bfa9f55af50abfad1f5349f9b69cfc39bd226
 testsuite/tests/simplCore/should_compile/T6056.hs     | 6 ++----
 testsuite/tests/simplCore/should_compile/T6056.stderr | 7 -------
 2 files changed, 2 insertions(+), 11 deletions(-)

diff --git a/testsuite/tests/simplCore/should_compile/T6056.hs b/testsuite/tests/simplCore/should_compile/T6056.hs
index e24631d..d2d8349 100644
--- a/testsuite/tests/simplCore/should_compile/T6056.hs
+++ b/testsuite/tests/simplCore/should_compile/T6056.hs
@@ -1,8 +1,6 @@
 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]
diff --git a/testsuite/tests/simplCore/should_compile/T6056.stderr b/testsuite/tests/simplCore/should_compile/T6056.stderr
index d9d4193..5695bd5 100644
--- a/testsuite/tests/simplCore/should_compile/T6056.stderr
+++ b/testsuite/tests/simplCore/should_compile/T6056.stderr
@@ -1,13 +1,6 @@
 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
-



More information about the ghc-commits mailing list