[commit: ghc] wip/nested-cpr: Mark FacState as not broken (051204f)

[git at git.haskell.org]

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

On branch  : wip/nested-cpr
Link       : http://ghc.haskell.org/trac/ghc/changeset/051204f15c6b93637a536058a15c05458f28db96/ghc

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

commit 051204f15c6b93637a536058a15c05458f28db96
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Fri Jan 17 09:59:14 2014 +0000

    Mark FacState as not broken


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

051204f15c6b93637a536058a15c05458f28db96
 testsuite/tests/stranal/sigs/FacState.stderr |    2 +-
 testsuite/tests/stranal/sigs/all.T           |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/stranal/sigs/FacState.stderr b/testsuite/tests/stranal/sigs/FacState.stderr
index 133ad6e..9757620 100644
--- a/testsuite/tests/stranal/sigs/FacState.stderr
+++ b/testsuite/tests/stranal/sigs/FacState.stderr
@@ -1,5 +1,5 @@
 
 ==================== Strictness signatures ====================
-FacState.fac: <S,1*U(U)><L,U>dm1(d,tm1(d))
+FacState.fac: <S(S),1*U(U)><L,U>m(,tm(t))
 
 
diff --git a/testsuite/tests/stranal/sigs/all.T b/testsuite/tests/stranal/sigs/all.T
index a59958d..1794cad 100644
--- a/testsuite/tests/stranal/sigs/all.T
+++ b/testsuite/tests/stranal/sigs/all.T
@@ -11,7 +11,7 @@ test('StrAnalExample', normal, compile, [''])
 test('T8569', expect_broken(8569), compile, [''])
 test('HyperStrUse', normal, compile, [''])
 test('T8598', normal, compile, [''])
-test('FacState', expect_broken(1600), compile, [''])
+test('FacState', normal, compile, [''])
 test('UnsatFun', normal, compile, [''])
 test('CaseBinderCPR', normal, compile, [''])
 test('InfiniteCPR', normal, compile, [''])