diff --git a/cardano-db-sync/app/http-get-json-metadata.hs b/cardano-db-sync/app/http-get-json-metadata.hs index 9e1992789..760a20222 100644 --- a/cardano-db-sync/app/http-get-json-metadata.hs +++ b/cardano-db-sync/app/http-get-json-metadata.hs @@ -45,7 +45,7 @@ main = do Right bs -> bs cleanOpt :: [String] -> [String] - cleanOpt ls = List.delete "ga" $ List.delete "vote" $ List.delete "drep" $ List.delete "pool" ls + cleanOpt ls = ls List.\\ ["url", "ga", "drep", "other", "vote", "committee_dereg", "const"] getVoteType :: [String] -> Maybe OffChainVoteType getVoteType ls diff --git a/cardano-db-sync/src/Cardano/DbSync/OffChain/Http.hs b/cardano-db-sync/src/Cardano/DbSync/OffChain/Http.hs index 9ee91355d..ecfb75670 100644 --- a/cardano-db-sync/src/Cardano/DbSync/OffChain/Http.hs +++ b/cardano-db-sync/src/Cardano/DbSync/OffChain/Http.hs @@ -105,7 +105,7 @@ httpGetOffChainVoteDataSingle :: httpGetOffChainVoteDataSingle vurl metaHash anchorType = do manager <- liftIO $ Http.newManager tlsManagerSettings request <- parseOffChainUrl url - let req = httpGetBytes manager request 10000 30000 url + let req = httpGetBytes manager request 300000 300000 url httpRes <- handleExceptT (convertHttpException url) req (respBS, respLBS, mContentType) <- hoistEither httpRes (ocvd, decodedValue, metadataHash, mWarning) <- parseAndValidateVoteData respBS respLBS metaHash anchorType (Just $ OffChainVoteUrl vurl)