diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-04-24 12:53:50 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-04-24 12:53:50 +0000 |
| commit | d1bc75c8e17d44436bcaeb70631bb26c3739dae6 (patch) | |
| tree | 576205f20e75f98fe9bb430fa07c36559bc23298 /testsuite/tests/ghc-regress/ghci.debugger | |
| parent | e9b2dc5028b9c93cb03c1fcb305ee568a87bdeb0 (diff) | |
| download | haskell-d1bc75c8e17d44436bcaeb70631bb26c3739dae6.tar.gz | |
Use a bang pattern when we where/let-bind values with unlifted types
Diffstat (limited to 'testsuite/tests/ghc-regress/ghci.debugger')
3 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T b/testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T index f46cf4da1c..427d172c6f 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T @@ -18,7 +18,7 @@ test('print016', normal, ghci_script, ['print016.script']) test('print017', normal, ghci_script, ['print017.script']) test('print018', normal, ghci_script, ['print018.script']) test('print019', normal, ghci_script, ['print019.script']) -test('print020', normal, ghci_script, ['print020.script']) +test('print020', expect_broken(2806), ghci_script, ['print020.script']) test('print021', normal, ghci_script, ['print021.script']) test('print022', normal, ghci_script, ['print022.script']) test('print023', normal, ghci_script, ['print023.script']) diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs b/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs index 77ac75fe64..c9e88f014a 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.hs @@ -5,4 +5,4 @@ import GHC.Base f :: Int -> Int# -> Int# f x i = i -test = let I# i = 3 in I#(f 2 i)
\ No newline at end of file +test = let !(I# i) = 3 in I# (f 2 i)
\ No newline at end of file diff --git a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout b/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout index ab94e00e14..3e1d3bc371 100644 --- a/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout +++ b/testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk009.stdout @@ -1,8 +1,8 @@ -Stopped at dynbrk009.hs:8:18 +Stopped at dynbrk009.hs:8:21 _result :: Int = _ -Stopped at dynbrk009.hs:8:23-31 +Stopped at dynbrk009.hs:8:26-35 _result :: Int = _ -Stopped at dynbrk009.hs:8:26-30 +Stopped at dynbrk009.hs:8:30-34 _result :: Int = _ Stopped at dynbrk009.hs:6:0-8 _result :: Int = _ |