mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove dummy

Browse source
This commit is contained in:
Joey Hess 2012-08-10 15:54:12 -04:00
parent a76078a78e
commit 0d80406b2b
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/WebApp/DashBoard.hs
View file

@ -44,18 +44,13 @@ transfersDisplay warnNoScript = do
queued <- liftIO $ getTransferQueue $ transferQueue webapp queued <- liftIO $ getTransferQueue $ transferQueue webapp
let ident = "transfers" let ident = "transfers"
autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int) autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int)
let transfers = current ++ queued ++ dummy let transfers = current ++ queued
if null transfers if null transfers
then ifM (lift $ showIntro <$> getWebAppState) then ifM (lift $ showIntro <$> getWebAppState)
( introDisplay ident ( introDisplay ident
, $(widgetFile "dashboard/transfers") , $(widgetFile "dashboard/transfers")
) )
else $(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. {- Called by client to get a display of currently in process transfers.
- -