Fix bug with missing ~/.ghcup/ghc/ dir

2020-04-26 22:06:00 +02:00 · 2020-04-26 22:06:00 +02:00 · 1d623723a2
commit 1d623723a2
parent 931080244f
1 changed files with 1 additions and 1 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@ -338,7 +338,7 @@ listVersions av lt criteria = case lt of
            -> m [ListResult]
  strayGHCs avTools = do
    ghcdir <- liftIO $ ghcupGHCBaseDir
-    fs     <- liftIO $ getDirsFiles' ghcdir
+    fs     <- liftIO $ liftIO $ hideErrorDef [NoSuchThing] [] $ getDirsFiles' ghcdir
    fmap catMaybes $ forM fs $ \(toFilePath -> f) -> do
      case version . decUTF8Safe $ f of
        Right v' -> do