diff --git a/Assistant/WebApp/DashBoard.hs b/Assistant/WebApp/DashBoard.hs index a9666c8796..045202174b 100644 --- a/Assistant/WebApp/DashBoard.hs +++ b/Assistant/WebApp/DashBoard.hs @@ -33,7 +33,7 @@ transfersDisplay :: Bool -> Widget transfersDisplay warnNoScript = do webapp <- lift getYesod current <- lift $ M.toList <$> getCurrentTransfers - queued <- lift $ liftAssistant getTransferQueue + queued <- lift $ take 10 <$> liftAssistant getTransferQueue autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int) let transfers = simplifyTransfers $ current ++ queued if null transfers diff --git a/debian/changelog b/debian/changelog index b927f8623a..1face2f522 100644 --- a/debian/changelog +++ b/debian/changelog @@ -2,6 +2,7 @@ git-annex (4.20130228) UNRELEASED; urgency=low * Stop depending on testpack. * Android: Enable test suite. + * webapp: Only show up to 10 queued transfers. -- Joey Hess Wed, 27 Feb 2013 23:20:40 -0400