aboutsummaryrefslogtreecommitdiff
path: root/Assistant.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-02-06 15:38:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-02-06 15:38:41 -0400
commit5d4a987bb9d0796af6597c307739482a4a8e1898 (patch)
tree5467d2d3f24132ed637a015b205003837211412a /Assistant.hs
parenteadcb2d93f5ed2ec280efede40c623c7a5394678 (diff)
fix build with webapp disabled
Broken by recent thread manager and restarting improvements.
Diffstat (limited to 'Assistant.hs')
-rw-r--r--Assistant.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Assistant.hs b/Assistant.hs
index 45c0e9f03..8a3816f4d 100644
--- a/Assistant.hs
+++ b/Assistant.hs
@@ -196,8 +196,10 @@ startDaemon assistant foreground startbrowser = do
#ifdef WITH_WEBAPP
d <- getAssistant id
urlrenderer <- liftIO newUrlRenderer
+ mapM_ (startthread $ Just urlrenderer)
+#else
+ mapM_ (startthread Nothing)
#endif
- mapM_ (startthread urlrenderer)
[ watch $ commitThread
#ifdef WITH_WEBAPP
, assist $ webAppThread d urlrenderer False Nothing webappwaiter
@@ -230,5 +232,5 @@ startDaemon assistant foreground startbrowser = do
watch a = (True, a)
assist a = (False, a)
startthread urlrenderer (watcher, t)
- | watcher || assistant = startNamedThread (Just urlrenderer) t
+ | watcher || assistant = startNamedThread urlrenderer t
| otherwise = noop