diff options
Diffstat (limited to 'Command/WebApp.hs')
| -rw-r--r-- | Command/WebApp.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index 20a2ecdbe..b9d6159b7 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -109,10 +109,12 @@ firstRun = do urlrenderer <- newUrlRenderer v <- newEmptyMVar let callback a = Just $ a v - void $ runAssistant d $ runNamedThread $ - webAppThread d urlrenderer True - (callback signaler) - (callback mainthread) + runAssistant d $ do + startNamedThread $ + webAppThread d urlrenderer True + (callback signaler) + (callback mainthread) + waitNamedThreads where signaler v = do putMVar v "" |