From cf55eabec6e7a3d84114ce19f9e8cf982b1b10e7 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)