iopq/proxy - Change PP7Q5VXEYCPSLGA32BP4BM25IRUCE7IAVCYLQJB3HYUOVIEPHACQC

avoid busy waiting

Created by EbwjwgbHP64g5DPwCqcF1oKFEikinCPQ2vNWwmnsaYkz on November 29, 2025

PP7Q5VXEYCPSLGA32BP4BM25IRUCE7IAVCYLQJB3HYUOVIEPHACQC

Dependencies

In channels

main

Change contents

Insertion in proxy.cabal at line 30 [3.10426]
[3.10935]
[3.10935]
```
    , async
```
Insertion in proxy.cabal at line 57 [3.10426]
[3.11369]
[3.11369]
```
    , async
```
Insertion in package.yaml at line 26 [3.11607]
[2.1065]
[3.12209]
```
- async
```

Insertion in app/Controller.hs at line 23 [3.12987]

[3.13526]

import Control.Concurrent
import Control.Concurrent.Async
import Control.Monad (forever)

Replacement in app/Controller.hs at line 88 [3.12987]

B:BD[2.1439] → [2.1439:1486]

acceptLoop sock stopFlag configFile env = loop

[2.1439]

[4.7216]

acceptLoop sock stopFlag config env =
  race serverWait stopWait >> pure ()

Replacement in app/Controller.hs at line 91 [3.12987]

B:BD[4.7224] → [4.7224:7340]

B:BD[4.7340] → [2.1487:1539]

∅:D[2.1539] → [4.7400:7436]

B:BD[4.7400] → [4.7400:7436]

    loop = do
      empty <- isEmptyMVar stopFlag
      if empty
        then do
          (conn, _) <- accept sock
          forkIO $ handleClient conn configFile env
          loop
        else pure ()

[4.7224]

[5.974]

    serverWait = forever $ do
      (conn, _) <- accept sock
      forkIO $ handleClient conn config env

Insertion in app/Controller.hs at line 95 [3.12987]

[5.975]

[4.7476]

    stopWait = readMVar stopFlag   -- Blocks until someone puts something