SignupCore.scala

SignupCore.scala

def signupImpl
    [F[_], A: IsParseable[F, ?], B: HasCodes]
    (a: A): Signup[SignupError Or B] =
  OrT.value {
    for {
      r <- parse(a)                     |> OrT.lift
      _ <- log(info("Parsed body"))     |> OrT.lift
      s <- salt(512)                    |> OrT.lift
      _ <- log(info("Created salt"))    |> OrT.lift
      h <- hash(r.p, s, 10000)          |> OrT.lift
      _ <- log(info("Created hash"))    |> OrT.lift
      u =  User(r.e, h, s)
      _ <- persist(u)                   |> OrT.lift
      _ <- logW(info("Persisted user")) |> OrT.lift
    } yield { HasCodes[B].success }
  }