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 Just $ ToDownload f u i $ Enclosure enclosureurl
Nothing -> mkquvi f i Nothing -> mkquvi f i
mkquvi f i = case getItemLink i of mkquvi f i = case getItemLink i of
Just link -> do Just link -> ifM (quviSupported link)
liftIO $ print ("link", link) ( return $ Just $ ToDownload f u i $ QuviLink link
ifM (quviSupported link) , return Nothing
( return $ Just $ ToDownload f u i $ QuviLink link )
, return Nothing
)
Nothing -> return Nothing Nothing -> return Nothing
{- Feeds change, so a feed download cannot be resumed. -} {- Feeds change, so a feed download cannot be resumed. -}