diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-24 15:42:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-24 15:42:02 -0400 |
| commit | e61eabc176e145deed2572efff3e1c22c0939b79 (patch) | |
| tree | 3f219e8abb3a320f4db66122aeadaab72c671218 /Assistant.hs | |
| parent | 74bfce98180d93ac84fea5ca383d981d773e2e50 (diff) | |
initial implementation of XMPP push notifier (untested)
Lacking error handling, reconnection, credentials configuration,
and doesn't actually do anything when it receives an incoming notification.
Other than that, it might work! :)
Diffstat (limited to 'Assistant.hs')
| -rw-r--r-- | Assistant.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant.hs b/Assistant.hs index 4ac4375e4..7ab9cea51 100644 --- a/Assistant.hs +++ b/Assistant.hs @@ -105,7 +105,7 @@ - BranchChanged (STM SampleVar) - Changes to the git-annex branch are indicated by updating this - SampleVar. - - PushNotifier (STM SampleVar) + - PushNotifier (STM TChan) - After successful pushes, this SampleVar is updated. - UrlRenderer (MVar) - A Yesod route rendering function is stored here. This allows @@ -216,7 +216,7 @@ startAssistant assistant daemonize webappwaiter = withThreadState $ \st -> do , assist $ transferScannerThread st dstatus scanremotes transferqueue , assist $ configMonitorThread st dstatus branchhandle commitchan #ifdef WITH_XMPP - , assist $ pushNotifierThread dstatus pushnotifier + , assist $ pushNotifierThread st dstatus pushnotifier #endif , watch $ watchThread st dstatus transferqueue changechan ] |