[commit: testsuite] master: Accept debug-print wibbles (a65db87)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/a65db87fd68f521bf5a46eaa4298d56e8358dc5e

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

commit a65db87fd68f521bf5a46eaa4298d56e8358dc5e
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu May 10 08:52:23 2012 +0100

    Accept debug-print wibbles

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

 tests/simplCore/should_compile/T3717.stderr       |    2 +-
 tests/simplCore/should_compile/T4908.stderr       |    4 ++--
 tests/simplCore/should_compile/T4930.stderr       |    2 +-
 tests/simplCore/should_compile/spec-inline.stderr |   10 +++++-----
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/tests/simplCore/should_compile/T3717.stderr b/tests/simplCore/should_compile/T3717.stderr
index 802db2e..56824f5 100644
--- a/tests/simplCore/should_compile/T3717.stderr
+++ b/tests/simplCore/should_compile/T3717.stderr
@@ -19,7 +19,7 @@ T3717.foo [InlPrag=INLINE[0]] :: GHC.Types.Int -> GHC.Types.Int
  Caf=NoCafRefs,
  Str=DmdType U(L)m,
  Unf=Unf{Src=Worker=T3717.$wfoo, TopLvl=True, Arity=1, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int) ->
                  case w of _ { GHC.Types.I# ww [Occ=Once] ->
diff --git a/tests/simplCore/should_compile/T4908.stderr b/tests/simplCore/should_compile/T4908.stderr
index 7e63926..4f2c5f2 100644
--- a/tests/simplCore/should_compile/T4908.stderr
+++ b/tests/simplCore/should_compile/T4908.stderr
@@ -29,7 +29,7 @@ T4908.$wf
  Caf=NoCafRefs,
  Str=DmdType LL,
  Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=True, Expandable=True,
          Guidance=IF_ARGS [30 20] 101 20}]
 T4908.$wf =
   \ (ww :: GHC.Prim.Int#) (w :: (GHC.Types.Int, GHC.Types.Int)) ->
@@ -54,7 +54,7 @@ T4908.f [InlPrag=INLINE[0]]
  Caf=NoCafRefs,
  Str=DmdType U(L)L,
  Unf=Unf{Src=Worker=T4908.$wf, TopLvl=True, Arity=2, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once!] :: GHC.Types.Int)
                  (w1 [Occ=Once] :: (GHC.Types.Int, GHC.Types.Int)) ->
diff --git a/tests/simplCore/should_compile/T4930.stderr b/tests/simplCore/should_compile/T4930.stderr
index 1b9b21a..41e3996 100644
--- a/tests/simplCore/should_compile/T4930.stderr
+++ b/tests/simplCore/should_compile/T4930.stderr
@@ -15,7 +15,7 @@ T4930.foo :: GHC.Types.Int -> GHC.Types.Int
  Arity=1,
  Str=DmdType U(L)m,
  Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (n [Occ=Once!] :: GHC.Types.Int) ->
                  case n of _ { GHC.Types.I# x ->
diff --git a/tests/simplCore/should_compile/spec-inline.stderr b/tests/simplCore/should_compile/spec-inline.stderr
index f2c6633..4145442 100644
--- a/tests/simplCore/should_compile/spec-inline.stderr
+++ b/tests/simplCore/should_compile/spec-inline.stderr
@@ -46,7 +46,7 @@ Roman.$wgo
  Arity=2,
  Str=DmdType SS,
  Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=2, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=True, Expandable=True,
          Guidance=IF_ARGS [60 30] 253 0}]
 Roman.$wgo =
   \ (w :: Data.Maybe.Maybe GHC.Types.Int)
@@ -94,7 +94,7 @@ Roman.foo_go [InlPrag=INLINE[0]]
  Arity=2,
  Str=DmdType SSm,
  Unf=Unf{Src=Worker=Roman.$wgo, TopLvl=True, Arity=2, Value=True,
-         ConLike=True, Cheap=True, Expandable=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)
                  (w1 [Occ=Once] :: Data.Maybe.Maybe GHC.Types.Int) ->
@@ -109,7 +109,7 @@ Roman.foo2 :: GHC.Types.Int
  Caf=NoCafRefs,
  Str=DmdType m,
  Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=False, Expandable=True,
          Guidance=IF_ARGS [] 10 110}]
 Roman.foo2 = GHC.Types.I# 6
 
@@ -118,7 +118,7 @@ Roman.foo1 :: Data.Maybe.Maybe GHC.Types.Int
  Caf=NoCafRefs,
  Str=DmdType,
  Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=False, Expandable=True,
          Guidance=IF_ARGS [] 10 110}]
 Roman.foo1 = Data.Maybe.Just @ GHC.Types.Int Roman.foo2
 
@@ -128,7 +128,7 @@ Roman.foo :: GHC.Types.Int -> GHC.Types.Int
  Caf=NoCafRefs,
  Str=DmdType S(A)m,
  Unf=Unf{Src=InlineStable, TopLvl=True, Arity=1, Value=True,
-         ConLike=True, Cheap=True, Expandable=True,
+         ConLike=True, WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False)
          Tmpl= \ (n [Occ=Once!] :: GHC.Types.Int) ->
                  case n of n1 { GHC.Types.I# _ ->