Merge pull request #1933 from IntersectMBO/kderme/fix-offchain-limit

Fix offchain limit

Author: kderme

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

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)