From ac97f28258483df6b122c716dec279d5106186d3 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Mon, 11 Jul 2022 15:02:20 -0600
Subject: [PATCH] attempt to fix leak

---
 src/Handler/Util.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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