blob: 758b26974a97e123f6116fdff41bfb31fce21568 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Spent most of the past day moving the assistant into a monad of its own
that encapsulates all the communications channels for its threads. This
involved modifiying nearly every line of code in the whole assistant.
Typical change:
[[!format haskell """
handleConnection threadname st dstatus scanremotes pushnotifier = do
reconnectRemotes threadname st dstatus scanremotes (Just pushnotifier)
=<< networkRemotes st
handleConnection = reconnectRemotes True =<< networkRemotes
"""]]
So, it's getting more readable..
|
