ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)
                    let raw = raw_mode entry >>= \rm -> textToRawMode rm (port entry)
                    Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack <$> udp2raw_password entry) (T.unpack <$> udpspeeder_password entry) environment
                    start ip raw

                    ip <- startEntry entry environment
                    putStrLn ("started on " ++ ip)

                            ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)
                            let raw = raw_mode entry >>= \rm -> textToRawMode rm (port entry)
                            Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack <$> udp2raw_password entry) (T.unpack <$> udpspeeder_password entry) environment
                            -- Start proxy with resolved IP and RawMode
                            start ip raw

                            ip <- startEntry entry environment

                    Nothing ->
                        case cfg of
                            (entry:_) -> do
                                hPutStrLn h "Starting default server"
                                ip <- startEntry entry environment
                                hPutStrLn h ("Started on " ++ ip)
                            [] ->
                                hPutStrLn h "YAML config empty"
                Left err -> do
                    hPutStrLn h ("No YAML config: " ++ err)

                    hPutStrLn h "stopped"

                    hPutStrLn h "Stopped"

startEntry :: ConfigEntry -> String -> IO String
startEntry entry environment = do
    ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)
    let raw = raw_mode entry >>= \rm -> textToRawMode rm (port entry)
    Env.writeEnv Env{Env.ip = ip, rawMode = raw} (T.unpack <$> udp2raw_password entry) (T.unpack <$> udpspeeder_password entry) environment
    start ip raw
    pure ip