importfeed: Display url before starting youtube-dl download

It was displaying a blank line before.

CHANGELOG

@@ -1,3 +1,9 @@
+git-annex (8.20211118) UNRELEASED; urgency=medium
+
+  * importfeed: Display url before starting youtube-dl download.
+
+ -- Joey Hess <id@joeyh.name>  Wed, 17 Nov 2021 13:18:44 -0400
+
 git-annex (8.20211117) upstream; urgency=medium
 
   * filter-process: New command that can make git add/checkout faster when

Command/ImportFeed.hs

@@ -184,8 +184,12 @@ downloadFeed url f
 		Url.download nullMeterUpdate Nothing url f
 
 performDownload :: AddUnlockedMatcher -> ImportFeedOptions -> Cache -> ToDownload -> Annex Bool
-performDownload addunlockedmatcher opts cache todownload = case location todownload of
+performDownload = performDownload' False
-	Enclosure url -> checkknown url $
+
+performDownload' :: Bool -> AddUnlockedMatcher -> ImportFeedOptions -> Cache -> ToDownload -> Annex Bool
+performDownload' started addunlockedmatcher opts cache todownload = case location todownload of
+	Enclosure url -> checkknown url $ do
+		starturl url
 		rundownload url (takeWhile (/= '?') $ takeExtension url) $ \f -> do
 			let f' = fromRawFilePath f
 			r <- Remote.claimingUrl url
@@ -256,9 +260,7 @@ performDownload addunlockedmatcher opts cache todownload = case location todownl
 			feedFile (template cache) todownload extension
 		case dest of
 			Nothing -> return True
-			Just f -> do
+			Just f -> getter (toRawFilePath f) >>= \case
-				showStartOther "addurl" (Just url) (SeekInput [])
-				getter (toRawFilePath f) >>= \case
 				Just ks
 					-- Download problem.
 					| null ks -> do
@@ -272,9 +274,8 @@ performDownload addunlockedmatcher opts cache todownload = case location todownl
 								)
 						showEndOk
 						return True
-					-- Was not able to add anything,
+				-- Was not able to add anything, but not
-					-- but not because of a download 
+				-- because of a download problem.
-					-- problem.
 				Nothing -> do
 					showEndFail
 					return False
@@ -305,9 +306,10 @@ performDownload addunlockedmatcher opts cache todownload = case location todownl
 			)
 	
 	downloadmedia linkurl mediaurl mediakey
-		| rawOption (downloadOptions opts) = downloadlink
+		| rawOption (downloadOptions opts) = downloadlink False
 		| otherwise = ifM (youtubeDlSupported linkurl)
 			( do
+				starturl linkurl
 				r <- withTmpWorkDir mediakey $ \workdir -> do
 					dl <- youtubeDl linkurl (fromRawFilePath workdir) nullMeterUpdate
 					case dl of
@@ -323,29 +325,34 @@ performDownload addunlockedmatcher opts cache todownload = case location todownl
 						-- youtube-dl didn't support it, so
 						-- download it as if the link were
 						-- an enclosure.
-						Right Nothing -> Just <$> downloadlink
+						Right Nothing -> Just <$> downloadlink True
 						Left msg -> do
 							warning $ linkurl ++ ": " ++ msg
 							return Nothing
 				return (fromMaybe False r)
-			, downloadlink
+			, downloadlink False
 			)
 	  where
-		downloadlink = checkRaw Nothing (downloadOptions opts) $
+		downloadlink started' = checkRaw Nothing (downloadOptions opts) $
-			performDownload addunlockedmatcher opts cache todownload
+			performDownload' started' addunlockedmatcher opts cache todownload
 				{ location = Enclosure linkurl }
 
 	addmediafast linkurl mediaurl mediakey =
 		ifM (pure (not (rawOption (downloadOptions opts)))
 		     <&&> youtubeDlSupported linkurl)
-			( rundownload linkurl ".m" $ \f ->
+			( do
+				starturl linkurl
+				rundownload linkurl ".m" $ \f ->
 					checkCanAdd (downloadOptions opts) f $ \canadd -> do
 						addWorkTree canadd addunlockedmatcher webUUID mediaurl f mediakey Nothing
 						return (Just [mediakey])
-			, performDownload addunlockedmatcher opts cache todownload
+			, performDownload' started addunlockedmatcher opts cache todownload
 				{ location = Enclosure linkurl }
 			)
 
+	starturl u = unless started $
+		showStartOther "addurl" (Just u) (SeekInput [])
+
 defaultTemplate :: String
 defaultTemplate = "${feedtitle}/${itemtitle}${extension}"