diff --git a/src/Handler/Util.hs b/src/Handler/Util.hs index cb207d0..0ab78ba 100644 --- a/src/Handler/Util.hs +++ b/src/Handler/Util.hs @@ -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