diff options
author | Joey Hess <joey@kitenet.net> | 2012-10-29 17:56:29 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-10-29 17:56:29 -0400 |
commit | 9a2c813d1d04d976fb48d9be318901c4f5f4f919 (patch) | |
tree | 7d259e9714053097e1b262168843e5e9fea62c60 /doc | |
parent | 6b91074b4dda6dff353770e054ae550c7d1c3b4c (diff) |
blog for the day
Diffstat (limited to 'doc')
-rw-r--r-- | doc/design/assistant/blog/day_118__monadic_discontinuity.mdwn | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/doc/design/assistant/blog/day_118__monadic_discontinuity.mdwn b/doc/design/assistant/blog/day_118__monadic_discontinuity.mdwn new file mode 100644 index 000000000..758b26974 --- /dev/null +++ b/doc/design/assistant/blog/day_118__monadic_discontinuity.mdwn @@ -0,0 +1,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.. |