Fix for metadata collect with multiple ghc vers

leksah · Feb 22, 2018 · 95c8e46 · 95c8e46
1 parent 7e60f01
commit 95c8e46
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/main/Collector.hs b/main/Collector.hs
@@ -279,7 +279,11 @@ collectSystem prefs writeAscii forceRebuild findSources dbLists = do
     knownPackages       <-  findKnownPackages collectorPath
     libDir <- getSysLibDir Nothing VERSION_ghc
     debugM "leksah-server" $ "collectSystem knownPackages= " ++ show knownPackages
-    packageInfos        <-  concat <$> forM dbLists (\dbs -> inGhcIO libDir [] [] dbs $  \ _ -> map (,dbs) <$> getInstalledPackageInfos)
+    packageInfos        <-  concat <$> forM dbLists (\dbs ->
+            (inGhcIO libDir [] [] dbs $  \ _ -> map (,dbs) <$> getInstalledPackageInfos)
+        `catch` (\(e :: SomeException) -> do
+            debugM "leksah-server" $ "collectSystem error " <> show e
+            return []))
     debugM "leksah-server" $ "collectSystem packageInfos= " ++ show (map (packId . getThisPackage . fst) packageInfos)
     let pkgId = packageIdentifierToString . packId . getThisPackage
         newPackages = sortBy (comparing (pkgId. fst)) . nub $