better handling of lifting from XMPP -> Assistant

This commit is contained in:
Joey Hess 2012-11-05 19:39:08 -04:00
parent fdb6a88877
commit 8f08aa3f45
7 changed files with 81 additions and 88 deletions

View file

@ -107,7 +107,7 @@ firstRun = do
urlrenderer <- newUrlRenderer
v <- newEmptyMVar
let callback a = Just $ a v
void $ flip runAssistant d $ runNamedThread $
void $ runAssistant d $ runNamedThread $
webAppThread d urlrenderer True
(callback signaler)
(callback mainthread)