[core] Extract PlanExecutor

cli/src/main/scala/net/kemitix/thorp/cli/Program.scala

@@ -25,9 +25,10 @@ trait Program {
 
   private def execute =
     for {
-      plan    <- PlanBuilder.createPlan
+      _        <- SyncLogging.logRunStart
-      archive <- UnversionedMirrorArchive.default(plan.syncTotals)
+      syncPlan <- PlanBuilder.createPlan
-      events  <- applyPlan(archive, plan)
+      archive  <- UnversionedMirrorArchive.default(syncPlan.syncTotals)
+      events   <- PlanExecutor.executePlan(archive, syncPlan)
       _        <- SyncLogging.logRunFinished(events)
     } yield ()
 
@@ -40,27 +41,6 @@ trait Program {
         ZIO.foreach_(errors)(error => Console.putStrLn(s"- $error"))
     }
 
-  private def applyPlan(archive: ThorpArchive, syncPlan: SyncPlan) =
-    ZIO
-      .foldLeft(sequenceActions(syncPlan.actions))(
-        EventQueue(Stream.empty, syncPlan.syncTotals.totalSizeBytes))(
-        applyAction(archive)(_, _))
-      .map(_.events)
-
-  private def sequenceActions(actions: Stream[Action]) =
-    actions.zipWithIndex
-      .map({ case (a, i) => SequencedAction(a, i) })
-
-  private def applyAction(archive: ThorpArchive)(
-      queue: EventQueue,
-      action: SequencedAction
-  ) = {
-    val remainingBytes = queue.bytesInQueue - action.action.size
-    archive
-      .update(action, remainingBytes)
-      .map(events => EventQueue(queue.events ++ Stream(events), remainingBytes))
-  }
-
 }
 
 object Program extends Program

core/src/main/scala/net/kemitix/thorp/core/PlanBuilder.scala

@@ -13,20 +13,14 @@ object PlanBuilder {
 
   def createPlan
     : RIO[Storage with Console with Config with FileSystem with Hasher,
-          SyncPlan] =
+          SyncPlan] = (fetchRemoteData <&> findLocalFiles) >>= assemblePlan
-    SyncLogging.logRunStart *> buildPlan
-
-  private def buildPlan =
-    gatherMetadata >>= assemblePlan
-
-  private def gatherMetadata =
-    fetchRemoteData &&& findLocalFiles
 
   private def fetchRemoteData =
     for {
       bucket  <- Config.bucket
       prefix  <- Config.prefix
       objects <- Storage.list(bucket, prefix)
+      _       <- Console.putStrLn(s"Found ${objects.byKey.size} remote objects")
     } yield objects
 
   private def assemblePlan(metadata: (RemoteObjects, LocalFiles)) =
@@ -34,17 +28,17 @@ object PlanBuilder {
       case (remoteObjects, localData) =>
         createActions(remoteObjects, localData.localFiles)
           .map(_.filter(doesSomething).sortBy(SequencePlan.order))
-          .map(
+          .map(syncPlan(localData))
-            SyncPlan
-              .create(_,
-                      SyncTotals
-                        .create(localData.count, localData.totalSizeBytes, 0L)))
     }
 
-  private def createActions(
+  private def syncPlan(localData: LocalFiles): Stream[Action] => SyncPlan =
-      remoteObjects: RemoteObjects,
+    SyncPlan.create(_, syncTotal(localData))
-      localFiles: Stream[LocalFile]
+
-  ) =
+  private def syncTotal(localData: LocalFiles): SyncTotals =
+    SyncTotals.create(localData.count, localData.totalSizeBytes, 0L)
+
+  private def createActions(remoteObjects: RemoteObjects,
+                            localFiles: Stream[LocalFile]) =
     for {
       fileActions   <- actionsForLocalFiles(remoteObjects, localFiles)
       remoteActions <- actionsForRemoteKeys(remoteObjects.byKey.keys)
@@ -55,28 +49,30 @@ object PlanBuilder {
     case _            => true
   }
 
-  private def actionsForLocalFiles(
+  private def actionsForLocalFiles(remoteObjects: RemoteObjects,
-      remoteObjects: RemoteObjects,
+                                   localFiles: Stream[LocalFile]) =
-      localFiles: Stream[LocalFile]
+    ZIO.foldLeft(localFiles)(Stream.empty[Action])(
-  ) =
+      (acc, localFile) =>
-    ZIO.foldLeft(localFiles)(Stream.empty[Action])((acc, localFile) =>
+        createActionsFromLocalFile(remoteObjects, acc, localFile)
-      createActionsFromLocalFile(remoteObjects, acc, localFile).map(_ #::: acc))
+          .map(_ #::: acc)
+    )
 
-  private def createActionsFromLocalFile(
+  private def createActionsFromLocalFile(remoteObjects: RemoteObjects,
-      remoteObjects: RemoteObjects,
                                          previousActions: Stream[Action],
-      localFile: LocalFile
+                                         localFile: LocalFile) =
-  ) =
     ActionGenerator.createActions(
       S3MetaDataEnricher.getMetadata(localFile, remoteObjects),
-      previousActions)
+      previousActions
+    )
 
   private def actionsForRemoteKeys(remoteKeys: Iterable[RemoteKey]) =
-    ZIO.foldLeft(remoteKeys)(Stream.empty[Action])((acc, remoteKey) =>
+    ZIO.foldLeft(remoteKeys)(Stream.empty[Action])(
-      createActionFromRemoteKey(remoteKey).map(_ #:: acc))
+      (acc, remoteKey) => createActionFromRemoteKey(remoteKey).map(_ #:: acc)
+    )
 
   private def createActionFromRemoteKey(
-      remoteKey: RemoteKey): ZIO[FileSystem with Config, Throwable, Action] =
+      remoteKey: RemoteKey
+  ): ZIO[FileSystem with Config, Throwable, Action] =
     for {
       bucket       <- Config.bucket
       prefix       <- Config.prefix
@@ -93,6 +89,7 @@ object PlanBuilder {
     for {
       sources <- Config.sources
       found   <- ZIO.foreach(sources.paths)(LocalFileStream.findFiles)
+      _       <- Console.putStrLn(s"Found ${found.flatMap(_.localFiles).size} files")
     } yield LocalFiles.reduce(found.toStream)
 
 }

core/src/main/scala/net/kemitix/thorp/core/PlanExecutor.scala

@@ -0,0 +1,39 @@
+package net.kemitix.thorp.core
+
+import net.kemitix.thorp.config.Config
+import net.kemitix.thorp.console.Console
+import net.kemitix.thorp.domain.StorageQueueEvent
+import net.kemitix.thorp.storage.api.Storage
+import zio.{Ref, ZIO}
+
+trait PlanExecutor {
+
+  def executePlan(
+      archive: ThorpArchive,
+      syncPlan: SyncPlan
+  ): ZIO[Storage with Config with Console,
+         Throwable,
+         Seq[
+           StorageQueueEvent
+         ]] =
+    for {
+      actionCounter <- Ref.make(0)
+      bytesCounter  <- Ref.make(0L)
+      events <- ZIO.foreach(syncPlan.actions) {
+        updateArchive(archive, actionCounter, bytesCounter)
+      }
+    } yield events
+
+  private def updateArchive(archive: ThorpArchive,
+                            actionCounterRef: Ref[Int],
+                            bytesCounterRef: Ref[Long])(action: Action) =
+    for {
+      actionCounter <- actionCounterRef.update(_ + 1)
+      bytesCounter  <- bytesCounterRef.update(_ + action.size)
+      event <- archive.update(SequencedAction(action, actionCounter),
+                              bytesCounter)
+    } yield event
+
+}
+
+object PlanExecutor extends PlanExecutor

core/src/main/scala/net/kemitix/thorp/core/SyncLogging.scala

@@ -30,7 +30,7 @@ trait SyncLogging {
     } yield ()
 
   def logRunFinished(
-      actions: Stream[StorageQueueEvent]
+      actions: Seq[StorageQueueEvent]
   ): ZIO[Console, Nothing, Unit] = {
     val counters = actions.foldLeft(Counters.empty)(countActivities)
     Console.putStrLn(eraseToEndOfScreen) *>

core/src/test/scala/net/kemitix/thorp/core/PlanBuilderTest.scala

@@ -363,23 +363,20 @@ class PlanBuilderTest extends FreeSpec with TemporaryFolder {
       override def shutdownResult: UIO[StorageQueueEvent] =
         Task.die(new NotImplementedError)
     }
-
     def testProgram =
       for {
         config <- ConfigurationBuilder.buildConfig(configOptions)
         _      <- Config.set(config)
         plan   <- PlanBuilder.createPlan
       } yield plan
-
     new DefaultRuntime {}
       .unsafeRunSync(testProgram.provide(testEnv))
       .toEither
       .map(convertResult)
   }
 
-  private def convertResult
+  private def convertResult(plan: SyncPlan) =
-    : SyncPlan => List[(String, String, String, String, String)] =
+    plan.actions.map({
-    _.actions.toList.map({
       case ToUpload(_, lf, _) =>
         ("upload",
          lf.remoteKey.key,
@@ -391,6 +388,6 @@ class PlanBuilderTest extends FreeSpec with TemporaryFolder {
         ("copy", sourceKey.key, MD5Hash.hash(hash), targetKey.key, "")
       case DoNothing(_, remoteKey, _) =>
         ("do-nothing", remoteKey.key, "", "", "")
-      case x => ("other", "", "", "", "")
+      case _ => ("other", "", "", "", "")
     })
 }