[commit: ghc] wip/T15578: Fix test for #15578 (848a7e9)

git at git.haskell.org git at git.haskell.org
Fri Sep 7 11:15:50 UTC 2018


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

On branch  : wip/T15578
Link       : http://ghc.haskell.org/trac/ghc/changeset/848a7e971179f376c11890c83a51f56f6754ac52/ghc

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

commit 848a7e971179f376c11890c83a51f56f6754ac52
Author: Tobias Dammers <tdammers at gmail.com>
Date:   Fri Sep 7 13:02:49 2018 +0200

    Fix test for #15578
    
    By allowing 0-arity values to be inlined, we end up changing boringness
    annotations, and this gets reflected in the Core output for this
    particular test.


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

848a7e971179f376c11890c83a51f56f6754ac52
 testsuite/tests/simplCore/should_compile/T7360.stderr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testsuite/tests/simplCore/should_compile/T7360.stderr b/testsuite/tests/simplCore/should_compile/T7360.stderr
index f310e8f..5332a3e 100644
--- a/testsuite/tests/simplCore/should_compile/T7360.stderr
+++ b/testsuite/tests/simplCore/should_compile/T7360.stderr
@@ -26,7 +26,7 @@ fun1 [InlPrag=NOINLINE] :: Foo -> ()
  Str=<S,1*U>,
  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
          WorkFree=True, Expandable=True,
-         Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
+         Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=True)
          Tmpl= \ (x [Occ=Once] :: Foo) ->
                  case x of { __DEFAULT -> GHC.Tuple.() }}]
 fun1 = \ (x :: Foo) -> case x of { __DEFAULT -> GHC.Tuple.() }



More information about the ghc-commits mailing list