hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Julian Ospald 2020-04-26 22:06:00 +02:00
parent 931080244f
commit 1d623723a2
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/GHCup.hs
View File

@ -338,7 +338,7 @@ listVersions av lt criteria = case lt of
-> m [ListResult] -> m [ListResult]
strayGHCs avTools = do strayGHCs avTools = do
ghcdir <- liftIO $ ghcupGHCBaseDir ghcdir <- liftIO $ ghcupGHCBaseDir
fs <- liftIO $ getDirsFiles' ghcdir fs <- liftIO $ liftIO $ hideErrorDef [NoSuchThing] [] $ getDirsFiles' ghcdir
fmap catMaybes $ forM fs $ \(toFilePath -> f) -> do fmap catMaybes $ forM fs $ \(toFilePath -> f) -> do
case version . decUTF8Safe $ f of case version . decUTF8Safe $ f of
Right v' -> do Right v' -> do