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

attempt to fix leak

Browse Source
This commit is contained in:
Keagan McClelland
2022-07-11 15:02:20 -06:00
parent 25769d05d1
commit ac97f28258
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Util.hs
View File

@@ -139,7 +139,7 @@ tickleMAU = do
fetchCompatiblePkgVersions :: Maybe VersionRange -> PkgId -> Handler [VersionRecord]
fetchCompatiblePkgVersions osVersion pkg = do
appConnPool <- appConnPool <$> getYesod
versionRecords <- runDB $ fetchAllPkgVersions appConnPool pkg
versionRecords <- fetchAllPkgVersions appConnPool pkg
pure $ filter (osPredicate osVersion . versionRecordOsVersion) versionRecords
where
osPredicate osV = do