["status"] -> do
            e <- Env.loadEnv environment
            case e of
                 Right envVal -> do
                     hPutStrLn h ("Currently using the " ++ (Env.ip envVal) ++ " server")