diff options
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 |