diff options
author | 2012-11-02 21:13:06 -0400 | |
---|---|---|
committer | 2012-11-02 21:13:06 -0400 | |
commit | df24b5661e7728a1ca37ec8e7001ca50b300725e (patch) | |
tree | 87d044aade7598abe74e454f04d3c2708ca8ebd4 /Assistant/Threads | |
parent | c3bd80207051ca96d9d172e29ba600dec25df113 (diff) |
add buddy list to pairing UI
Diffstat (limited to 'Assistant/Threads')
-rw-r--r-- | Assistant/Threads/PairListener.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index 90fce8777..cd297fad3 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -103,7 +103,7 @@ pairListenerThread urlrenderer = NamedThread "PairListener" $ do pairReqReceived :: Bool -> UrlRenderer -> PairMsg -> Assistant () pairReqReceived True _ _ = noop -- ignore our own PairReq pairReqReceived False urlrenderer msg = do - url <- liftIO $ renderUrl urlrenderer (FinishPairR msg) [] + url <- liftIO $ renderUrl urlrenderer (FinishLocalPairR msg) [] close <- asIO1 removeAlert void $ addAlert $ pairRequestReceivedAlert repo AlertButton |