:steplocal panics after break-on-error
Using steplocal after breaking on an exception leads to GHCI giving a pattern match error
Minimal testcase:
```
Prelude> :set -fbreak-on-exception
Prelude> error "abc"
Stopped in <exception thrown>, <unknown>
_exception :: e = _
[<unknown>] [<unknown>] Prelude> :steplocal
*** Exception: Pattern match failure in do expression at ghc/GHCi/UI.hs:3149:12-18
```
:step works as expected.
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------ |
| Version | 8.2.2 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | Unresolved |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Pattern match failure in GHCi with :steplocal","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"Unresolved","owner":{"tag":"Unowned"},"version":"8.2.2","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"Using steplocal after breaking on an exception leads to GHCI giving a pattern match error\r\n\r\nMinimal testcase:\r\n\r\n\r\n{{{\r\nPrelude> :set -fbreak-on-exception\r\nPrelude> error \"abc\"\r\nStopped in <exception thrown>, <unknown>\r\n_exception :: e = _\r\n[<unknown>] [<unknown>] Prelude> :steplocal\r\n*** Exception: Pattern match failure in do expression at ghc/GHCi/UI.hs:3149:12-18\r\n}}}\r\n\r\n:step works as expected.","type_of_failure":"OtherFailure","blocking":[]} -->
issue