From 78db5b1aa67e94609a2e7de047975da765c818ca Mon Sep 17 00:00:00 2001 From: Aaron Greenspan Date: Tue, 24 Dec 2019 22:38:00 -0700 Subject: [PATCH] give it a go --- 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 eb48754..d6e831f 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 doesDirectoryExist + getSubDirectories path = listDirectory path >>= filterM (doesDirectoryExist . (path )) getAppFileFromDir :: String -> String -> AppVersion -> IO (Maybe FilePath)