cmdNewPeer :: Parser ConsoleCmd
cmdNewPeer = do
    string "new"
    spaces
    (ip,port) <- ip_port_pair
    return $ CmdNewPeer ip port
cmdNewPeer :: Parser ConsoleCmd
cmdNewPeer = do
    string "new"
    spaces
    (ip,port) <- ip_port_pair
    return $ CmdNewPeer ip port
cmdNewPeer = do
    string "new"
    spaces
    (ip,port) <- ip_port_pair
    return $ CmdNewPeer ip port