diff --git a/exec/Chainweb/Server.hs b/exec/Chainweb/Server.hs index 3e8f125c..7842fe0e 100644 --- a/exec/Chainweb/Server.hs +++ b/exec/Chainweb/Server.hs @@ -650,11 +650,9 @@ queryRecentTxs logger pool = do runSelectReturningList $ select $ do limit_ 20 $ orderBy_ (desc_ . getHeight) $ do tx <- all_ (_cddb_transactions database) - blk <- all_ (_cddb_blocks database) - guard_ (_tx_block tx `references_` blk) return ( (_tx_chainId tx) - , (_block_height blk) + , (_tx_height tx) , (unBlockId $ _tx_block tx) , (_tx_creationTime tx) , (_tx_requestKey tx)