queue and start download of git-annex from web, using git-annex, when upgrade is started

This commit is contained in:
Joey Hess 2013-11-23 17:21:04 -04:00
parent 6802123f7d
commit 32acf908bb
4 changed files with 50 additions and 20 deletions

View file

@ -73,6 +73,8 @@ data DaemonStatus = DaemonStatus
-- Broadcasts notifications when a global redirect is needed.
, globalRedirNotifier :: NotificationBroadcaster
, globalRedirUrl :: Maybe URLString
-- Actions to run after a Key is transferred.
, transferHook :: M.Map Key (Transfer -> IO ())
-- When the XMPP client is connected, this will contain the XMPP
-- address.
, xmppClientID :: Maybe ClientID
@ -112,5 +114,6 @@ newDaemonStatus = DaemonStatus
<*> newNotificationBroadcaster
<*> newNotificationBroadcaster
<*> pure Nothing
<*> pure M.empty
<*> pure Nothing
<*> pure M.empty