[commit: testsuite] master: Updated tests for the change in wrapper IdInfo syntax in c080f727ba5f83921b842fcff71e9066adbdc250 (a7920ef)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/a7920ef6eefa5578c89b7cda0d6be207ee38c502/testsuite

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

commit a7920ef6eefa5578c89b7cda0d6be207ee38c502
Author: Nicolas Frisby <nicolas.frisby at gmail.com>
Date:   Thu Aug 29 15:24:02 2013 -0500

    Updated tests for the change in wrapper IdInfo syntax in
    c080f727ba5f83921b842fcff71e9066adbdc250


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

a7920ef6eefa5578c89b7cda0d6be207ee38c502
 tests/simplCore/should_compile/T3717.stderr       |    2 +-
 tests/simplCore/should_compile/T4908.stderr       |    2 +-
 tests/simplCore/should_compile/spec-inline.stderr |    5 +++--
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests/simplCore/should_compile/T3717.stderr b/tests/simplCore/should_compile/T3717.stderr
index 5a495e4..14d7ad2 100644
--- a/tests/simplCore/should_compile/T3717.stderr
+++ b/tests/simplCore/should_compile/T3717.stderr
@@ -18,7 +18,7 @@ T3717.foo [InlPrag=INLINE[0]] :: GHC.Types.Int -> GHC.Types.Int
  Arity=1,
  Caf=NoCafRefs,
  Str=DmdType <S(S),1*U(1*U)>m,
- Unf=Unf{Src=Worker=T3717.$wfoo, TopLvl=True, Arity=1, Value=True,
+ Unf=Unf{Src=Wrapper, TopLvl=True, Arity=1, Value=True,
          ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int) ->
diff --git a/tests/simplCore/should_compile/T4908.stderr b/tests/simplCore/should_compile/T4908.stderr
index 67b02e1..ec4ea3e 100644
--- a/tests/simplCore/should_compile/T4908.stderr
+++ b/tests/simplCore/should_compile/T4908.stderr
@@ -53,7 +53,7 @@ T4908.f [InlPrag=INLINE[0]]
  Arity=2,
  Caf=NoCafRefs,
  Str=DmdType <S(S),1*U(1*U)><L,1*U(A,U(U))>,
- Unf=Unf{Src=Worker=T4908.$wf, TopLvl=True, Arity=2, Value=True,
+ Unf=Unf{Src=Wrapper, TopLvl=True, Arity=2, Value=True,
          ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int)
diff --git a/tests/simplCore/should_compile/spec-inline.stderr b/tests/simplCore/should_compile/spec-inline.stderr
index 8700b95..88662bc 100644
--- a/tests/simplCore/should_compile/spec-inline.stderr
+++ b/tests/simplCore/should_compile/spec-inline.stderr
@@ -30,7 +30,8 @@ Roman.foo_$s$wgo =
         case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# sc 100)
         of _ {
           GHC.Types.False ->
-            case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# sc 500) of _ {
+            case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.<$# sc 500)
+            of _ {
               GHC.Types.False ->
                 Roman.foo_$s$wgo (GHC.Prim.-# sc 1) (GHC.Prim.+# a a);
               GHC.Types.True -> Roman.foo_$s$wgo (GHC.Prim.-# sc 3) a
@@ -98,7 +99,7 @@ Roman.foo_go [InlPrag=INLINE[0]]
 [GblId,
  Arity=2,
  Str=DmdType <S,1*U><S,1*U>m,
- Unf=Unf{Src=Worker=Roman.$wgo, TopLvl=True, Arity=2, Value=True,
+ Unf=Unf{Src=Wrapper, TopLvl=True, Arity=2, Value=True,
          ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once] :: Data.Maybe.Maybe GHC.Types.Int)