consoleCmd :: Parser ConsoleCmd
consoleCmd = try cmdShutdown   <|>
             try cmdListPeers  <|>
             try cmdNewPeer    <|>
             try cmdRemovePeer <|>
             fail "Command not recognized"
consoleCmd :: Parser ConsoleCmd
consoleCmd = try cmdShutdown   <|>
             try cmdListPeers  <|>
             try cmdNewPeer    <|>
             try cmdRemovePeer <|>
             fail "Command not recognized"
consoleCmd = try cmdShutdown   <|>
             try cmdListPeers  <|>
             try cmdNewPeer    <|>
             try cmdRemovePeer <|>
             fail "Command not recognized"