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

wire up scan and transfer to newly added removable drive

Browse source 
remote setup still todo
This commit is contained in:
Joey Hess 2012-08-04 21:18:57 -04:00
parent e125ce74b8
commit 3add2cd3ba
6 changed files with 49 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/WebApp.hs
View file

@ -11,6 +11,7 @@ import Common.Annex
import Command
import Assistant
import Assistant.DaemonStatus
import Assistant.ScanRemotes
import Assistant.TransferQueue
import Assistant.Threads.WebApp
import Utility.WebApp
@ -83,10 +84,12 @@ autoStart autostartfile = do
firstRun :: IO ()
firstRun = do
dstatus <- atomically . newTMVar =<< newDaemonStatus
scanremotes <- newScanRemoteMap
transferqueue <- newTransferQueue
v <- newEmptyMVar
let callback a = Just $ a v
webAppThread Nothing dstatus transferqueue (callback signaler) (callback mainthread)
webAppThread Nothing dstatus scanremotes transferqueue
(callback signaler) (callback mainthread)
where
signaler v = do
putMVar v ""