MZFADT7SUWRLK3MWQUWOKKYXEGGXAUD43KBXYT2T327X2WP4NDVQC pure (Just e)
ip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))writeEnv ip (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) raw-- Start proxy with resolved IP and RawModestart ip rawhPutStrLn h "started"
pure Nothing-- No name provided, pick the first entryNothing -> pure $ listToMaybe cfgLeft _ -> pure Nothing(ipAddr, rawModeVal) <- case mEntry ofJust entry -> doip <- waitForIP (T.unpack $ nameserver entry) (T.unpack $ domain entry)let raw = fromMaybe ICMP (textToRawMode (raw_mode entry) (port entry))writeEnv ip (T.unpack $ udp2raw_password entry) (T.unpack $ udpspeeder_password entry) rawpure (ip, raw)Nothing -> case envFallback ofJust envVal -> pure (Env.ip envVal, Env.rawMode envVal)Nothing -> dohPutStrLn h "No matching config entry and no .env"pure ("", ICMP)-- Start proxy with resolved IP and RawModestart ipAddr rawModeValhPutStrLn h "started"