From 49082fb0815eccd0e7239a3f3825721a3199fb1f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 28 Feb 2017 14:41:00 -0400 Subject: remove old debug print --- Command/ImportFeed.hs | 10 ++++------ 1 file 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. -} -- cgit v1.2.3