diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-10 15:54:12 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-10 15:54:12 -0400 |
| commit | 0d80406b2b94333c67c2a9da412fdacebf0eb780 (patch) | |
| tree | 5dc34099f5567b6fe15c206925b40e4cfdcf8d15 /Assistant/WebApp/DashBoard.hs | |
| parent | a76078a78e4dc353e7b4e99a250ddd3d83f74ba3 (diff) | |
remove dummy
Diffstat (limited to 'Assistant/WebApp/DashBoard.hs')
| -rw-r--r-- | Assistant/WebApp/DashBoard.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/Assistant/WebApp/DashBoard.hs b/Assistant/WebApp/DashBoard.hs index e2245bf6c..94451640e 100644 --- a/Assistant/WebApp/DashBoard.hs +++ b/Assistant/WebApp/DashBoard.hs @@ -44,18 +44,13 @@ transfersDisplay warnNoScript = do queued <- liftIO $ getTransferQueue $ transferQueue webapp let ident = "transfers" autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int) - let transfers = current ++ queued ++ dummy + let transfers = current ++ queued if null transfers then ifM (lift $ showIntro <$> getWebAppState) ( introDisplay ident , $(widgetFile "dashboard/transfers") ) else $(widgetFile "dashboard/transfers") - where - dummy = [(t, i), (t, i)] - t = Transfer Download (UUID "00000000-0000-0000-0000-000000000001") k - k = Types.Key.Key "foo" "bar" Nothing Nothing - i = TransferInfo Nothing Nothing Nothing Nothing Nothing Nothing {- Called by client to get a display of currently in process transfers. - |