From 3add2cd3ba560bbda353c4696c8f9d25443d61fe Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 4 Aug 2012 21:18:57 -0400 Subject: wire up scan and transfer to newly added removable drive remote setup still todo --- Command/WebApp.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Command/WebApp.hs') 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 "" -- cgit v1.2.3