diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-04 21:18:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-04 21:18:57 -0400 |
| commit | 3add2cd3ba560bbda353c4696c8f9d25443d61fe (patch) | |
| tree | a0ca7021c7288e5f2a9c5fbb039742720211be2c /Command | |
| parent | e125ce74b87a86b80f1eead371390ce72c58428b (diff) | |
wire up scan and transfer to newly added removable drive
remote setup still todo
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/WebApp.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index d3153f630..3b1952073 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -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 "" |