diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-07 14:53:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-07 14:56:32 -0400 |
| commit | 32753697c7c000a963580db76b665f93e39a83bb (patch) | |
| tree | 8aaf7622858ec23719d8c7b5208de299eb54f8c5 | |
| parent | 4b273426f0087395f00cf56caca757b780777cc9 (diff) | |
rename another 'close'
| -rw-r--r-- | Assistant/Threads/PairListener.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index 44b35a9c3..1f9de09ac 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -105,12 +105,12 @@ pairReqReceived :: Bool -> UrlRenderer -> PairMsg -> Assistant () pairReqReceived True _ _ = noop -- ignore our own PairReq pairReqReceived False urlrenderer msg = do url <- liftIO $ renderUrl urlrenderer (FinishLocalPairR msg) [] - close <- asIO1 removeAlert + closealert <- asIO1 removeAlert void $ addAlert $ pairRequestReceivedAlert repo AlertButton { buttonUrl = url , buttonLabel = T.pack "Respond" - , buttonAction = Just close + , buttonAction = Just closealert } where repo = pairRepo msg |