kemitix/thorp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[main] extract IO program

Browse source
This commit is contained in:
Paul Campbell 2019-05-06 10:32:53 +01:00
parent b16862ea20
commit b5e1036874
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/main/scala/net/kemitix/s3thorp/Main.scala
View file

@ -2,16 +2,21 @@ package net.kemitix.s3thorp
import cats.effect.ExitCase.{Canceled, Completed, Error} import cats.effect.ExitCase.{Canceled, Completed, Error}
import cats.effect.{ExitCode, IO, IOApp} import cats.effect.{ExitCode, IO, IOApp}
import cats.syntax.all._
object Main extends IOApp { 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
override def run(args: List[String]): IO[ExitCode] = override def run(args: List[String]): IO[ExitCode] =
(for { program(args)
ec <- S3Thorp(args).as(ExitCode.Success) .guaranteeCase {
} yield ec).guaranteeCase {
case Canceled => IO(println("Interrupted")) case Canceled => IO(println("Interrupted"))
case Error(e) => IO(println("ERROR: " + e)) case Error(e) => IO(println("ERROR: " + e.getMessage))
case Completed => IO(println("Done")) case Completed => IO(println("Done"))
} }