blob: e913a2f240afb1d5fb3ae1815bebd33f6a51a97f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- Testing -fbreak-on-exception
error "foo"
:set -fbreak-on-exception
error "foo"
:abandon
:l ../Test7.hs
:tr main
:hist
:back
:back
:back
:forward
:forward
:forward
:force _exception
:show bindings
:force _result
-- the exception is caught by the withProg/withArgs wrappers, hence 3 :continues
:continue
:continue
:continue
|
