Tweak break017

testsuite/tests/ghc-regress/ghci.debugger/scripts/break017.script

@@ -2,7 +2,10 @@
 :set -fbreak-on-exception
 :trace qsort ("abc" ++ undefined)
 :back
+putStrLn "Printing 1"
 :print as
+putStrLn "Forcing"
 :force as
 -- this should print the exception
+putStrLn "Printing 2"
 :print as

testsuite/tests/ghc-regress/ghci.debugger/scripts/break017.stdout

@@ -4,6 +4,9 @@ Logged breakpoint at ../QSort.hs:6:23-37
 _result :: [Char]
 a :: Char
 as :: [Char]
+Printing 1
 as = 'b' : 'c' : (_t1::[Char])
+Forcing
 *** Exception: Prelude.undefined
+Printing 2
 as = 'b' : 'c' : (_t2::[Char])