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

remove debug print

Browse source
This commit is contained in:
Joey Hess 2012-08-29 15:45:48 -04:00
parent 476d36ed16
commit a4fa31ffa1
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Assistant/WebApp/DashBoard.hs
View file

@ -45,7 +45,6 @@ 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)
liftIO $ print ("current", current)
let transfers = simplifyTransfers $ current ++ queued let transfers = simplifyTransfers $ current ++ queued
if null transfers if null transfers
then ifM (lift $ showIntro <$> getWebAppState) then ifM (lift $ showIntro <$> getWebAppState)