[main] inline S3Thorp (for now)

This commit is contained in:
Paul Campbell 2019-05-06 10:37:10 +01:00
parent b5e1036874
commit 14205f4fbf
2 changed files with 12 additions and 19 deletions

View file

@ -7,10 +7,18 @@ object Main extends IOApp {
def parseArgs(args: List[String]): IO[Config] = IO.pure(Config("", ""))
def program(args: List[String]): IO[ExitCode] = for {
a <- parseArgs(args)
_ <- S3Thorp(a)
} yield ExitCode.Success
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)
_ <- sync(a)
} yield ExitCode.Success
override def run(args: List[String]): IO[ExitCode] =
program(args)

View file

@ -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 ()
}
}