Fix fetchDelistedPools

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