diff options
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. - |