SignupCore.scala

SignupCore.scala

  def signup
  [F[_], A: IsParseable[F, ?], B: HasCodes]
  (a: A): Signup[B] = {
    for {
      errorOrCode <- signupImpl(a)
      _ <- errorOrCode.fold(
        logError,
        _ => Success.asRight[LogError] |> Signup.pure
      )
    } yield {
      errorOrCode.left.map(errorToCode[B]).merge
    }
  }
  
  
  def logError
  (e: SignupError): Signup[LogError Or Success] = e match {
    case ParseError =>
      log(info("Parse error"))
    case CryptoError =>
      log(error("Unexpected cryptography error"))
    case UnknownDatabaseError =>
      log(error("Unexpected database error"))
    case DatabaseConflictError =>
      log(info("Database conflict"))
    case LogError =>
      log(error("Unexpected logging error"))
  }