File tree Expand file tree Collapse file tree 1 file changed +5
-1
lines changed Expand file tree Collapse file tree 1 file changed +5
-1
lines changed Original file line number Diff line number Diff line change @@ -83,7 +83,8 @@ writeBugReportArchive base tar = do
83
83
{- | Run the inner action with a temporary directory holding the bug report.
84
84
85
85
The bug report will be saved as an archive if that was requested by the user, or
86
- if there is an error in the inner action other than 'UserInterrupt'.
86
+ if there is an error in the inner action other than
87
+ 'UserInterrupt' or 'ExitSuccess'.
87
88
88
89
-}
89
90
withBugReport
@@ -109,6 +110,9 @@ withBugReport exeName bugReport act =
109
110
case exitCase of
110
111
ExitCaseSuccess _ -> optionalWriteBugReport tmpDir
111
112
ExitCaseException someException
113
+ | Just ExitSuccess == fromException someException
114
+ {- User exits the repl after the proof was finished -} ->
115
+ optionalWriteBugReport tmpDir
112
116
| Just UserInterrupt == fromException someException ->
113
117
optionalWriteBugReport tmpDir
114
118
| otherwise -> do
You can’t perform that action at this time.
0 commit comments