summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-02-28 14:41:00 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-02-28 14:41:00 -0400
commit49082fb0815eccd0e7239a3f3825721a3199fb1f (patch)
tree5bf6f853bdb5f1998fb0d6bdc5ce54dd2498592f /Command
parent52483626e54326c3248f581dd0a4e7e79c424def (diff)
remove old debug print
Diffstat (limited to 'Command')
-rw-r--r--Command/ImportFeed.hs10
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. -}