diff options
Diffstat (limited to 'Command/WebApp.hs')
| -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 "" |