[commit: ghc] wip/T13861: ooops (1990632)

[git at git.haskell.org]

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

On branch  : wip/T13861
Link       : http://ghc.haskell.org/trac/ghc/changeset/199063287da7f635092bc0f0ae220dc030888288/ghc

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

commit 199063287da7f635092bc0f0ae220dc030888288
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Jul 31 12:09:51 2017 +0200

    ooops


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

199063287da7f635092bc0f0ae220dc030888288
 testsuite/tests/simplStg/should_run/T13861.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/simplStg/should_run/T13861.hs b/testsuite/tests/simplStg/should_run/T13861.hs
index 4f7e9e0..4645348 100644
--- a/testsuite/tests/simplStg/should_run/T13861.hs
+++ b/testsuite/tests/simplStg/should_run/T13861.hs
@@ -68,9 +68,9 @@ test x = do
 
     let (r40, r41) = (['l'], baz r40)
     (same $! r40) $! r41
-    let (r42, r43) = ([], eq1 r42)
+    let (r42, r43) = ([], baz r42)
     (same $! r42) $! r43
-    let (r44, r45) = ("ab", eq1 r44)
+    let (r44, r45) = ("ab", baz r44)
     (same $! r44) $! r45
     let (r46, r47) = (Refl, eq1 r46)
     (same $! r46) $! r47