diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2021-09-23 11:44:52 +0200 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2021-09-23 11:44:52 +0200 |
| commit | 6a15425cc769032ad30adc3122c6e356a5e2e764 (patch) | |
| tree | dc95a14204f5421feaf16dfb3f289b22a5b39406 /ghc/GHCi/UI | |
| parent | b3ab7a1c9ffeb2808a7930e7bb0910a96454837f (diff) | |
| download | haskell-6a15425cc769032ad30adc3122c6e356a5e2e764.tar.gz | |
Minimize diffwip/T18159
Diffstat (limited to 'ghc/GHCi/UI')
| -rw-r--r-- | ghc/GHCi/UI/Info.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GHCi/UI/Info.hs b/ghc/GHCi/UI/Info.hs index f793c20374..7fb13316e9 100644 --- a/ghc/GHCi/UI/Info.hs +++ b/ghc/GHCi/UI/Info.hs @@ -276,7 +276,7 @@ collectInfo ms loaded = do where go df unit_state m name = do { info <- getModInfo name; return (M.insert name info m) } `MC.catch` - (\(e :: SomeExceptionWithLocation) -> do + (\(e :: SomeException) -> do liftIO $ putStrLn $ showSDocForUser df unit_state alwaysQualify $ "Error while getting type info from" <+> |