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


1
2
3
4
5
6
7
8
9
10
11

:l ../QSort.hs
: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