mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

rename another 'close'

Browse source
This commit is contained in:
Joey Hess 2012-11-07 14:53:58 -04:00
parent b8585a9452
commit b827afba03
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Threads/PairListener.hs
View file

@ -105,12 +105,12 @@ pairReqReceived :: Bool -> UrlRenderer -> PairMsg -> Assistant ()
pairReqReceived True _ _ = noop -- ignore our own PairReq pairReqReceived True _ _ = noop -- ignore our own PairReq
pairReqReceived False urlrenderer msg = do pairReqReceived False urlrenderer msg = do
url <- liftIO $ renderUrl urlrenderer (FinishLocalPairR msg) [] url <- liftIO $ renderUrl urlrenderer (FinishLocalPairR msg) []
close <- asIO1 removeAlert closealert <- asIO1 removeAlert
void $ addAlert $ pairRequestReceivedAlert repo void $ addAlert $ pairRequestReceivedAlert repo
AlertButton AlertButton
{ buttonUrl = url { buttonUrl = url
, buttonLabel = T.pack "Respond" , buttonLabel = T.pack "Respond"
, buttonAction = Just close , buttonAction = Just closealert
} }
where where
repo = pairRepo msg repo = pairRepo msg