From fda1641d9a1b192b6c2f2fc44d8d2ee94367b0cd Mon Sep 17 00:00:00 2001 From: Aaron Greenspan Date: Tue, 24 Dec 2019 22:29:29 -0700 Subject: [PATCH] try different dir filter --- src/Lib/Registry.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Lib/Registry.hs b/src/Lib/Registry.hs index e1d1e3b..eb48754 100644 --- a/src/Lib/Registry.hs +++ b/src/Lib/Registry.hs @@ -75,7 +75,7 @@ loadRegistry rootDirectory = liftIO $ do pure $ insert appId (fromList . catMaybes $ versionApps) registry ) empty appDirectories where - getSubDirectories path = listDirectory path >>= filterM (fmap not . doesFileExist) + getSubDirectories path = listDirectory path >>= filterM doesDirectoryExist getAppFileFromDir :: String -> String -> AppVersion -> IO (Maybe FilePath)