the description for this gist

post.scala

class LogInService(clientId: String)(
  //Freestyle will provide it
  implicit uberHandler: FSHandler[Deps.Op, Task]
) {
  ...
  val app = new Programs[Deps.Op]()

  ...
    app.registerUser(credentials).interpret[Task].flatMap {
     case UserRegistered(id) =>
       Ok(s"registered: $id")
     case AlreadyRegistered =>
       Conflict(s"email is already used")
     case InternalFailure(err) =>
       InternalServerError(s"$err")
     }