infoN :: HostName -> PortNumber -> String -> IO Int
infoN h p msg = do
  infoM consensusFollower ("T " <> h <> ":" <> show p <> " " <> msg)
  return 1 -- to match sendTo
infoN :: HostName -> PortNumber -> String -> IO Int
infoN h p msg = do
  infoM consensusFollower ("T " <> h <> ":" <> show p <> " " <> msg)
  return 1 -- to match sendTo
infoN h p msg = do
  infoM consensusFollower ("T " <> h <> ":" <> show p <> " " <> msg)
  return 1 -- to match sendTo