summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-07 14:53:58 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-07 14:56:32 -0400
commit32753697c7c000a963580db76b665f93e39a83bb (patch)
tree8aaf7622858ec23719d8c7b5208de299eb54f8c5
parent4b273426f0087395f00cf56caca757b780777cc9 (diff)
rename another 'close'
-rw-r--r--Assistant/Threads/PairListener.hs4
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