Merge #2270

2270: Drop `PoolMetadataFetchAttempts` in `removePoolMetadata` r=hasufell a=hasufell When removing pool metadata, there's no point in keeping the last fetch attempts. In fact, this might delay re-syncing further. Co-authored-by: Julian Ospald <[email protected]>
cardano-foundation · Oct 26, 2020 · a529471 · a529471
2 parents d2c1c0c + a031188
commit a529471
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -399,8 +399,9 @@ newDBLayer trace fp timeInterpreter = do
                 (PoolMetadata hash name ticker description homepage)
             deleteWhere [ PoolFetchAttemptsMetadataHash ==. hash ]
 
-        removePoolMetadata =
+        removePoolMetadata = do
             deleteWhere ([] :: [Filter PoolMetadata])
+            deleteWhere ([] :: [Filter PoolMetadataFetchAttempts])
 
         readPoolMetadata = do
             Map.fromList . map (fromPoolMeta . entityVal)