iopq/proxy - Change MZFADT7SUWRLK3MWQUWOKKYXEGGXAUD43KBXYT2T327X2WP4NDVQC

cleanup

Created by EbwjwgbHP64g5DPwCqcF1oKFEikinCPQ2vNWwmnsaYkz on November 13, 2025

MZFADT7SUWRLK3MWQUWOKKYXEGGXAUD43KBXYT2T327X2WP4NDVQC

Dependencies

In channels

main

Change contents

Replacement in app/Controller.hs at line 97 [4.12987]
B:BD[3.7576] → [3.7576:7622]
```
handleClient sock configFile envFallback = do
```
[3.7576]
[3.7622]
```
handleClient sock configFile env = do
```
Replacement in app/Controller.hs at line 109 [4.12987]
B:BD[3.8044] → [3.8044:8082]
```
            mEntry <- case yamlCfg of
```
[3.8044]
[3.8082]
```
            case yamlCfg of
```

Replacement in app/Controller.hs at line 114 [4.12987]

B:BD[3.8293] → [3.8293:8333]

                          Just e  -> do

[3.8293]

[3.8333]

                          Just entry  -> do

Replacement in app/Controller.hs at line 116 [4.12987]

B:BD[3.8398] → [2.0:48]

                            case envFallback of

[3.8398]

[2.48]

                            case env of

Replacement in app/Controller.hs at line 121 [4.12987]

∅:D[2.334] → [3.8398:8440]

B:BD[3.8398] → [3.8398:8440]

                            pure (Just e)

[2.334]

[3.8440]

                            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 RawMode
                            start ip raw
                            hPutStrLn h "started"

Deletion in app/Controller.hs at line 129 [4.12987]

B:BD[3.8564] → [3.8564:9449]

∅:D[5.1156] → [6.416:417]

∅:D[3.9449] → [6.416:417]

B:BD[6.416] → [6.416:417]

B:BD[6.417] → [3.9450:9577]

                              pure Nothing
                    -- No name provided, pick the first entry
                    Nothing -> pure $ listToMaybe cfg
                Left _ -> pure Nothing
            (ipAddr, rawModeVal) <- case mEntry of
                Just entry -> do
                    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
                    pure (ip, raw)
                Nothing -> case envFallback of
                    Just envVal -> pure (Env.ip envVal, Env.rawMode envVal)
                    Nothing -> do
                        hPutStrLn h "No matching config entry and no .env"
                        pure ("", ICMP)
            -- Start proxy with resolved IP and RawMode
            start ipAddr rawModeVal
            hPutStrLn h "started"

Replacement in app/Controller.hs at line 130 [4.12987]
B:BD[3.9600] → [3.9600:9632]
```
            case envFallback of
```
[3.9600]
[3.9632]
```
            case env of
```