diff options
| -rw-r--r-- | Command/ImportFeed.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs index ea936e84a..521fca68e 100644 --- a/Command/ImportFeed.hs +++ b/Command/ImportFeed.hs @@ -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. -} |