summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-08-10 15:54:12 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-08-10 15:54:12 -0400
commit0d80406b2b94333c67c2a9da412fdacebf0eb780 (patch)
tree5dc34099f5567b6fe15c206925b40e4cfdcf8d15
parenta76078a78e4dc353e7b4e99a250ddd3d83f74ba3 (diff)
remove dummy
-rw-r--r--Assistant/WebApp/DashBoard.hs7
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.
-