remove old debug print

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. -}