[S3Thorp] Extract class

src/main/scala/net/kemitix/s3thorp/Main.scala

@@ -8,7 +8,7 @@ object Main extends IOApp {
 
   override def run(args: List[String]): IO[ExitCode] =
     (for {
-      ec <- IO(println("S3Thorp - hashed sync for s3")).as(ExitCode.Success)
+      ec <- S3Thorp(args).as(ExitCode.Success)
     } yield ec).guaranteeCase {
         case Canceled => IO(println("Interrupted"))
         case Error(e) => IO(println("ERROR: " + e))

src/main/scala/net/kemitix/s3thorp/S3Thorp.scala

@@ -0,0 +1,15 @@
+package net.kemitix.s3thorp
+
+import cats.effect.IO
+
+object S3Thorp {
+
+  def putStrLn(value: String): IO[Unit] = IO(println(value))
+
+  def apply(args: List[String]): IO[Unit] = {
+    for {
+      _ <- putStrLn("S3Thorp - hashed sync for s3")
+    } yield ()
+  }
+
+}