discard metadata URL based on their hash, not URLs

cardano-foundation · Jun 27, 2020 · 149c2a0 · 149c2a0
1 parent d1d635f
commit 149c2a0
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -257,7 +257,6 @@ newDBLayer trace fp = do
         , unfetchedPoolMetadataRefs = \limit -> do
             let nLimit = T.pack (show limit)
             let metadataHash  = fieldName (DBField PoolRegistrationMetadataHash)
-            let metadataUrl   = fieldName (DBField PoolRegistrationMetadataUrl)
             let retryAfter    = fieldName (DBField PoolFetchAttemptsRetryAfter)
             let registrations = tableName (DBField PoolRegistrationMetadataHash)
             let fetchAttempts = tableName (DBField PoolFetchAttemptsMetadataHash)
@@ -273,9 +272,9 @@ newDBLayer trace fp = do
                         , "FROM", metadata
                         , ")"
                     , "AND"
-                    , metadataUrl, "NOT", "IN" -- Recently failed urls
+                    , metadataHash, "NOT", "IN" -- Recently failed urls
                         , "("
-                        , "SELECT", metadataUrl
+                        , "SELECT", metadataHash
                         , "FROM", fetchAttempts
                         , "WHERE", retryAfter, ">=", "datetime('now')"
                         , ")"