better handling of lifting from XMPP -> Assistant
This commit is contained in:
parent
fdb6a88877
commit
8f08aa3f45
7 changed files with 81 additions and 88 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue