testsuite/tests/ghci.debugger/scripts/break017.script


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

:l QSort.hs
:set -fbreak-on-exception
:trace qsort ("abc" ++ undefined)

-- Back up to the (filter (<=a) as) call
:back
:back

putStrLn "Printing 1"
:print as

putStrLn "Forcing"
:force as

-- this should print the exception
putStrLn "Printing 2"
:print as