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

allow disabling syncing to a repo on its edit form

Browse source 
This is not quite right yet, since it disables it so hard it doesn't show
up in the repo list anymore!
This commit is contained in:
Joey Hess 2012-10-11 17:14:42 -04:00
parent 80b3952930
commit 5b9900133c
4 changed files with 62 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/DashBoard.hs
View file

@ -166,7 +166,7 @@ postCancelTransferR t = cancelTransfer False t
pauseTransfer :: Transfer -> Handler ()
pauseTransfer = cancelTransfer True
cancelTransfer :: Bool -> Transfer-> Handler ()
cancelTransfer :: Bool -> Transfer -> Handler ()
cancelTransfer pause t = do
webapp <- getYesod
let dstatus = daemonStatus webapp