Delete old UpgradeCheck records

commercialhaskell · Apr 17, 2019 · 2c189d7 · 2c189d7
1 parent fec34e4
commit 2c189d7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Stack/Storage.hs b/src/Stack/Storage.hs
@@ -556,4 +556,6 @@ upgradeChecksSince since = withStorage $ count [UpgradeCheckTimestamp >=. since]
 
 -- | Log in the database that an upgrade check occurred at the given time.
 logUpgradeCheck :: HasConfig env => UTCTime -> RIO env ()
-logUpgradeCheck = withStorage . insert_ . UpgradeCheck
+logUpgradeCheck time = withStorage $ do
+  deleteWhere ([] :: [Filter UpgradeCheck])
+  insert_ $ UpgradeCheck time