diff options
author | 2013-10-10 18:02:33 -0400 | |
---|---|---|
committer | 2013-10-10 18:05:53 -0400 | |
commit | 2bca58ee6c6d1f9020587586dcee04dc01b1f883 (patch) | |
tree | c5b87602b03db5277dc83673ccdc1d2dc642b3ad /Assistant/Threads/PairListener.hs | |
parent | 110c8f7b8e1fa484752298de5b48ea50b195066a (diff) |
add config page for fsck, and alert with button when a fsck is running
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
-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 882c95cc2..482b0923c 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -102,7 +102,7 @@ pairListenerThread urlrenderer = namedThread "PairListener" $ do pairReqReceived :: Bool -> UrlRenderer -> PairMsg -> Assistant () pairReqReceived True _ _ = noop -- ignore our own PairReq pairReqReceived False urlrenderer msg = do - button <- mkAlertButton (T.pack "Respond") urlrenderer (FinishLocalPairR msg) + button <- mkAlertButton True (T.pack "Respond") urlrenderer (FinishLocalPairR msg) void $ addAlert $ pairRequestReceivedAlert repo button where repo = pairRepo msg |