aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Threads/PairListener.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-30 14:44:18 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-30 14:44:18 -0400
commitbab7e83221468905b76e28bb123ebe26e146b97b (patch)
tree19b3bf6d56f936a81c09be7b552c3a8616d45e27 /Assistant/Threads/PairListener.hs
parentca03b7fef80cf97e89cd785ec8393a27d5328d99 (diff)
cleanup daemonStatus accessors
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
-rw-r--r--Assistant/Threads/PairListener.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs
index 235f7f124..b8e5f4683 100644
--- a/Assistant/Threads/PairListener.hs
+++ b/Assistant/Threads/PairListener.hs
@@ -41,7 +41,7 @@ pairListenerThread urlrenderer = NamedThread "PairListener" $ do
Just m -> do
sane <- checkSane msg
(pip, verified) <- verificationCheck m
- =<< (pairingInProgress <$> daemonStatus)
+ =<< (pairingInProgress <$> getDaemonStatus)
let wrongstage = maybe False (\p -> pairMsgStage m <= inProgressPairStage p) pip
case (wrongstage, sane, pairMsgStage m) of
-- ignore our own messages, and