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/Unused.hs

@@ -303,8 +303,7 @@ withUnusedMaps a params = do
 	unusedtmp <- readUnusedMap "tmp"
 	let m = unused `M.union` unusedbad `M.union` unusedtmp
 	let unusedmaps = UnusedMaps unused unusedbad unusedtmp
-	seekActions $ return $ map (a unusedmaps) $
-		concatMap (unusedSpec m) params
+	commandActions $ map (a unusedmaps) $ concatMap (unusedSpec m) params
 
 unusedSpec :: UnusedMap -> String -> [Int]
 unusedSpec m spec