Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

give it a go

Browse Source
This commit is contained in:
Aaron Greenspan
2019-12-24 22:38:00 -07:00
parent fda1641d9a
commit 78db5b1aa6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Lib/Registry.hs
View File

@@ -75,7 +75,7 @@ loadRegistry rootDirectory = liftIO $ do
pure $ insert appId (fromList . catMaybes $ versionApps) registry
) empty appDirectories
where
getSubDirectories path = listDirectory path >>= filterM doesDirectoryExist
getSubDirectories path = listDirectory path >>= filterM (doesDirectoryExist . (path </>))
getAppFileFromDir :: String -> String -> AppVersion -> IO (Maybe FilePath)