Handle exceptions when reading core files

Author: wz1000

ghcide/src/Development/IDE/Core/Compile.hs

@@ -1301,12 +1301,14 @@ loadInterface session ms linkableNeeded RecompilationInfo{..} = do
              case maybe_recomp of
                Just msg -> do_regenerate msg
                Nothing
-                 | isJust linkableNeeded -> do
-                   (core_file@CoreFile{cf_iface_hash}, core_hash) <- liftIO $ readBinCoreFile (mkUpdater $ hsc_NC session) core_file
+                 | isJust linkableNeeded -> handleErrs $ do
+                   (core_file@CoreFile{cf_iface_hash}, core_hash) <- liftIO $
+                     readBinCoreFile (mkUpdater $ hsc_NC session) core_file
                    if cf_iface_hash == getModuleHash iface
                    then return ([], Just $ mkHiFileResult ms iface details runtime_deps (Just (core_file, fingerprintToBS core_hash)))
                    else do_regenerate (RecompBecause "Core file out of date (doesn't match iface hash)")
                  | otherwise -> return ([], Just $ mkHiFileResult ms iface details runtime_deps Nothing)
+                 where handleErrs = flip catch $ \(e :: IOException) -> do_regenerate (RecompBecause $ "Reading core file failed (" ++ show e ++ ")")
       (_, _reason) -> do_regenerate _reason
 
 -- | Find the runtime dependencies by looking at the annotations