MasseR 15e50322c4 Making the controllers more linear ...

Basically, the idea of `(oneBranch <> secondBranch)` instead of

```
do
x <- foo
case x of
  ...
```

2026-10-23 22:55:06 +03:00

..

Diagram.hs

Making the controllers more linear

2026-10-23 22:55:06 +03:00