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

remove old debug print

Browse source
This commit is contained in:
Joey Hess 2017-02-28 14:41:00 -04:00
parent 627dc6036e
commit a62802af08
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Command/ImportFeed.hs
View file

@ -138,12 +138,10 @@ findDownloads u = go =<< downloadFeed u
Just $ ToDownload f u i $ Enclosure enclosureurl
Nothing -> mkquvi f i
mkquvi f i = case getItemLink i of
Just link -> do
liftIO $ print ("link", link)
ifM (quviSupported link)
( return $ Just $ ToDownload f u i $ QuviLink link
, return Nothing
)
Just link -> ifM (quviSupported link)
( return $ Just $ ToDownload f u i $ QuviLink link
, return Nothing
)
Nothing -> return Nothing
{- Feeds change, so a feed download cannot be resumed. -}