diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-01-30 16:37:54 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-01-30 17:43:45 +0000 |
| commit | e40299c36c48a41e97f05d7be17042034fd24007 (patch) | |
| tree | cc5579e4ed16a3494fe05187f4e44572c7d847bd /ghc | |
| parent | 45df0266679dcf8b92142809fe4c8f4fcd1871cd (diff) | |
| download | haskell-e40299c36c48a41e97f05d7be17042034fd24007.tar.gz | |
Use throwIO rather than throw
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index bc85b458d1..c5d2808c44 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -833,7 +833,7 @@ runStmt stmt step -- | Clean up the GHCi environment after a statement has run afterRunStmt :: (SrcSpan -> Bool) -> GHC.RunResult -> GHCi Bool -afterRunStmt _ (GHC.RunException e) = throw e +afterRunStmt _ (GHC.RunException e) = liftIO $ Exception.throwIO e afterRunStmt step_here run_result = do resumes <- GHC.getResumeContext case run_result of |