diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-02-28 14:41:00 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-02-28 14:41:00 -0400 |
commit | 49082fb0815eccd0e7239a3f3825721a3199fb1f (patch) | |
tree | 5bf6f853bdb5f1998fb0d6bdc5ce54dd2498592f | |
parent | 52483626e54326c3248f581dd0a4e7e79c424def (diff) |
remove old debug print
-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. -} |