fix build with xmpp and w/o webapp
This commit is contained in:
parent
cfd3b16fe1
commit
3ef6b6a200
3 changed files with 27 additions and 37 deletions
|
@ -20,6 +20,7 @@ import qualified Remote
|
|||
import Utility.ThreadScheduler
|
||||
import Assistant.WebApp (UrlRenderer, renderUrl)
|
||||
import Assistant.WebApp.Types hiding (liftAssistant)
|
||||
import Assistant.WebApp.Configurators.XMPP (checkCloudRepos)
|
||||
import Assistant.Alert
|
||||
import Assistant.Pairing
|
||||
import Assistant.XMPP.Git
|
||||
|
@ -106,8 +107,9 @@ xmppClient urlrenderer d creds =
|
|||
maybe noop (inAssistant . pairMsgReceived urlrenderer stage u selfjid) (parseJID c)
|
||||
handle _ (GotNetMessage m@(Pushing _ pushstage))
|
||||
| isPushInitiation pushstage = inAssistant $
|
||||
unlessM (queueNetPushMessage m) $
|
||||
void $ forkIO <~> handlePushInitiation urlrenderer m
|
||||
unlessM (queueNetPushMessage m) $ do
|
||||
let checker = checkCloudRepos urlrenderer
|
||||
void $ forkIO <~> handlePushInitiation checker m
|
||||
| otherwise = void $ inAssistant $ queueNetPushMessage m
|
||||
handle _ (Ignorable _) = noop
|
||||
handle _ (Unknown _) = noop
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue