ntwrkAddrToNodeAddr :: NetworkAddress -> NodeAddr a
ntwrkAddrToNodeAddr (addr, port) =
    NodeAddrExact (unsafeIPFromString $ B8.unpack addr) (Just port)
ntwrkAddrToNodeAddr :: NetworkAddress -> NodeAddr a
ntwrkAddrToNodeAddr (addr, port) =
    NodeAddrExact (unsafeIPFromString $ B8.unpack addr) (Just port)
ntwrkAddrToNodeAddr (addr, port) =
    NodeAddrExact (unsafeIPFromString $ B8.unpack addr) (Just port)