From 1d623723a233d0b019cd127c342243ee06fb6735 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sun, 26 Apr 2020 22:06:00 +0200
Subject: [PATCH] Fix bug with missing ~/.ghcup/ghc/ dir

---
 lib/GHCup.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index 60ad9be..c448932 100644
--- 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