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 /Assistant/Threads/WebApp.hs | |
| parent | e125ce74b87a86b80f1eead371390ce72c58428b (diff) | |
wire up scan and transfer to newly added removable drive
remote setup still todo
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
| -rw-r--r-- | Assistant/Threads/WebApp.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index 7ea7314e0..7343c39fe 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -19,6 +19,7 @@ import Assistant.WebApp.Configurators import Assistant.WebApp.Documentation import Assistant.ThreadedMonad import Assistant.DaemonStatus +import Assistant.ScanRemotes import Assistant.TransferQueue import Utility.WebApp import Utility.FileMode @@ -40,14 +41,16 @@ type Url = String webAppThread :: (Maybe ThreadState) -> DaemonStatusHandle + -> ScanRemoteMap -> TransferQueue -> Maybe (IO String) -> Maybe (Url -> FilePath -> IO ()) -> IO () -webAppThread mst dstatus transferqueue postfirstrun onstartup = do +webAppThread mst dstatus scanremotes transferqueue postfirstrun onstartup = do webapp <- WebApp <$> pure mst <*> pure dstatus + <*> pure scanremotes <*> pure transferqueue <*> (pack <$> genRandomToken) <*> getreldir mst |