diff options
author | Joey Hess <joey@kitenet.net> | 2012-08-10 18:50:21 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-08-10 18:50:21 -0400 |
commit | 37eed5d8d0a3affad6a6a7d0cbbfb1c1e706e635 (patch) | |
tree | cfc70eb043de6d6932beb3b17aace4e03291accb /Assistant/WebApp/DashBoard.hs | |
parent | 8ba983065324cc850ee25de9a537fb7f29ef4bea (diff) |
fix button display for paused transfer
Diffstat (limited to 'Assistant/WebApp/DashBoard.hs')
-rw-r--r-- | Assistant/WebApp/DashBoard.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Assistant/WebApp/DashBoard.hs b/Assistant/WebApp/DashBoard.hs index 6e71e9cc6..73d9d229a 100644 --- a/Assistant/WebApp/DashBoard.hs +++ b/Assistant/WebApp/DashBoard.hs @@ -52,6 +52,9 @@ transfersDisplay warnNoScript = do , $(widgetFile "dashboard/transfers") ) else $(widgetFile "dashboard/transfers") + where + isrunning info = not $ + transferPaused info || isNothing (startedTime info) {- Called by client to get a display of currently in process transfers. - |