move commandAction out of CmdLine.Seek

This is groundwork for nested seek loops, eg seeking over all files and
then performing commandActions on a list of remotes, which can be done
concurrently.

This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.

Command/Inprogress.hs

@@ -38,7 +38,8 @@ seek o = do
 		then forM_ ts $ commandAction . start'
 		else do
 			let s = S.fromList ts
-			withFilesInGit (whenAnnexed (start s))
+			withFilesInGit
+				(commandAction . (whenAnnexed (start s)))
 				=<< workTreeItems (inprogressFiles o)
 
 start :: S.Set Key -> FilePath -> Key -> CommandStart