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

try different dir filter

Browse Source
This commit is contained in:
Aaron Greenspan
2019-12-24 22:29:29 -07:00
parent 2188208ce0
commit cf55eabec6
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 pure $ insert appId (fromList . catMaybes $ versionApps) registry
) empty appDirectories ) empty appDirectories
where where
getSubDirectories path = listDirectory path >>= filterM (fmap not . doesFileExist) getSubDirectories path = listDirectory path >>= filterM doesDirectoryExist
getAppFileFromDir :: String -> String -> AppVersion -> IO (Maybe FilePath) getAppFileFromDir :: String -> String -> AppVersion -> IO (Maybe FilePath)