handleCmd :: Cmd -> NodeProcessM ()
handleCmd cmd = do
  logInfoText $ "handleCmd: ReceivedCmd: " <> show cmd
  selfPeer <- getSelfPeer
  case cmd of
    TransactionCmd tx ->
      nsendAllPeers Messaging $
        TransactionMsg tx
    BlockCmd block ->
      nsendAllPeers Messaging $
        BlockMsg selfPeer block
handleCmd :: Cmd -> NodeProcessM ()
handleCmd cmd = do
  logInfoText $ "handleCmd: ReceivedCmd: " <> show cmd
  selfPeer <- getSelfPeer
  case cmd of
    TransactionCmd tx ->
      nsendAllPeers Messaging $
        TransactionMsg tx
    BlockCmd block ->
      nsendAllPeers Messaging $
        BlockMsg selfPeer block
handleCmd cmd = do
  logInfoText $ "handleCmd: ReceivedCmd: " <> show cmd
  selfPeer <- getSelfPeer
  case cmd of
    TransactionCmd tx ->
      nsendAllPeers Messaging $
        TransactionMsg tx
    BlockCmd block ->
      nsendAllPeers Messaging $
        BlockMsg selfPeer block