mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Types/DaemonStatus.hs
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