Update example to test mempool endpoint queries

blockfrost · Sep 14, 2024 · c3f5f1c · c3f5f1c
1 parent e225375
commit c3f5f1c
Show file tree

Hide file tree

Showing 3 changed files with 45 additions and 6 deletions.
diff --git a/blockfrost-client/blockfrost-client.cabal b/blockfrost-client/blockfrost-client.cabal
@@ -35,6 +35,7 @@ flag Production
 
 common libstuff
   default-language:    Haskell2010
+  default-extensions:  DuplicateRecordFields
   ghc-options:         -Wall -Wunused-packages
                        -fno-specialize
                        -- ^ this helps quite a lot

diff --git a/blockfrost-client/example/Main.hs b/blockfrost-client/example/Main.hs
@@ -3,7 +3,8 @@
 module Main
   where
 
-import Blockfrost.Client
+import Blockfrost.Client hiding (NutLinkAPI(..))
+import Control.Monad.IO.Class
 
 main = do
   -- reads token from BLOCKFROST_TOKEN_PATH
@@ -15,8 +16,45 @@ main = do
     latestBlocks <- getLatestBlock
     (ers :: Either BlockfrostError [AccountReward]) <-
       tryError $ getAccountRewards "gonnaFail"
+
+    allMempoolTxs <- 
+      getMempoolTransactions prj def def
+
+    if null allMempoolTxs 
+    then return $ (latestBlocks, ers, allMempoolTxs, Nothing)
+    else do let lastTxInMempool = TxHash . unTxHashObject $ last allMempoolTxs
+            lastMempoolTx <- getMempoolTransaction prj lastTxInMempool
+
+            return (latestBlocks, ers, allMempoolTxs, Just lastMempoolTx) 
+
+  -- variant accepting @Paged@ and @SortOrder@ arguments
+  -- getAccountRewards' "gonnaFail" (page 10) desc
+  case res of 
+    Left e -> print e
+    Right ((latestBlocks, ers, allMempoolTxs, lastMempoolTx)) -> do 
+      print "Latest blocks:"
+      print latestBlocks
+      putStrLn ""
+      print "Account rewards (expected to error):"
+      print ers
+      putStrLn ""
+      print "All mempool transactions (mempool potentially empty):"
+      print allMempoolTxs
+      putStrLn ""
+      print "Last mempool transaction (if any):"
+      print lastMempoolTx
+      putStrLn ""
 
-    -- variant accepting @Paged@ and @SortOrder@ arguments
-    -- getAccountRewards' "gonnaFail" (page 10) desc
-    pure (latestBlocks, ers)
-  print res
+      case lastMempoolTx of 
+        Nothing -> print "No mempool transactions found."
+        Just mempoolTx -> do
+          let inputs = _inputs mempoolTx
+          if null inputs 
+          then print "No mempool transactions found" -- Should be impossible
+          else 
+            do let address = Address . _address $ head inputs
+               mempoolTxByAddress <- runBlockfrost prj $ getMempoolTransactionsByAddress prj address def def
+               print "Mempool transactions by address:"
+               print mempoolTxByAddress
+
+
diff --git a/blockfrost-client/src/Blockfrost/Client/Cardano/Transactions.hs b/blockfrost-client/src/Blockfrost/Client/Cardano/Transactions.hs
@@ -17,7 +17,7 @@ module Blockfrost.Client.Cardano.Transactions
 
 import Blockfrost.API
 import Blockfrost.Client.Types
-import Blockfrost.Types
+import Blockfrost.Types hiding (MempoolTransaction(..))
 
 transactionsClient :: MonadBlockfrost m => Project -> TransactionsAPI (AsClientT m)
 transactionsClient = fromServant . _transactions . cardanoClient