diff --git a/lib/core/src/Cardano/Pool/Metadata.hs b/lib/core/src/Cardano/Pool/Metadata.hs index d02dd93ab76..f9da27b392d 100644 --- a/lib/core/src/Cardano/Pool/Metadata.hs +++ b/lib/core/src/Cardano/Pool/Metadata.hs @@ -129,6 +129,9 @@ metadaFetchEp pid (StakePoolMetadataHash bytes) healthCheckEP :: String healthCheckEP = T.unpack $ T.intercalate "/" ["api", "v1", "status"] +delistedEP :: String +delistedEP = T.unpack $ T.intercalate "/" ["api", "v1", "delisted"] + -- | TODO: import SMASH types newtype SMASHPoolId = SMASHPoolId { poolId :: T.Text @@ -247,7 +250,9 @@ fetchDelistedPools -> Manager -> IO (Maybe [PoolId]) fetchDelistedPools tr uri manager = runExceptTLog $ do - pl <- smashRequest tr uri manager + pl <- smashRequest tr + (uri { uriPath = "/" <> delistedEP , uriQuery = "", uriFragment = "" }) + manager smashPids <- except $ eitherDecodeStrict @[SMASHPoolId] pl forM smashPids $ except . first getTextDecodingError . toPoolId where