[main] inline S3Thorp (for now)

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

@@ -7,9 +7,17 @@ object Main extends IOApp {
 
   def parseArgs(args: List[String]): IO[Config] = IO.pure(Config("", ""))
 
-  def program(args: List[String]): IO[ExitCode] = for {
+  def putStrLn(value: String) = IO { println(value) }
+
+  def sync(c: Config): IO[Unit] =
+    for {
+      _ <- putStrLn("S3Thorp - hashed sync for s3")
+    } yield ()
+
+  def program(args: List[String]): IO[ExitCode] =
+    for {
       a <- parseArgs(args)
-    _ <- S3Thorp(a)
+      _ <- sync(a)
     } yield ExitCode.Success
 
   override def run(args: List[String]): IO[ExitCode] =

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

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