Only fetch and show NFTs that are known to work

Author: rynoV

src/Seabug/Contract/MarketPlaceListNft.purs

@@ -9,6 +9,7 @@ import Contract.Prelude
 import Contract.Address (getNetworkId, typedValidatorEnterpriseAddress)
 import Contract.Monad (Contract, liftContractE, liftedM)
 import Contract.PlutusData (fromData, getDatumsByHashes)
+import Contract.Prim.ByteArray (hexToByteArrayUnsafe)
 import Contract.Transaction
   ( TransactionInput
   , TransactionOutput(TransactionOutput)
@@ -59,6 +60,16 @@ marketPlaceListNft = do
             =<< (_ `Map.lookup` datums)
             =<< out.dataHash
         guard $ valueOf out.amount curr name == one
+        -- TODO: this is a temporary solution to only show NFTs
+        -- known to work. When minting an NFT, the sgNft's
+        -- transaction hash should be added here
+        guard $ any
+          ( \txHash -> (unwrap input # _.transactionId) ==
+              (wrap $ hexToByteArrayUnsafe txHash)
+          )
+          [ "db55d6708d1d38c3a85b498c89cf34ef1bcf40295092fcbff2550daefe289cd1"
+          , "ee692437895d27c92f34f6fb43ccc8ed14fec0a4ea2274073dcf07a8cf0662a6"
+          ]
         metadata <- MaybeT $ map hush $
           getFullSeabugMetadataWithBackoff (curr /\ name) projectId
         pure { input, output, metadata }