Incrementing a variable

[idontgetoutmuch]

I took this example https://github.com/andremarianiello/hasql-streams/blob/master/hasql-streams-example/app/Main.hs. How would I generate this (rather than it being unchecked)?

Transaction.transaction Transaction.ReadCommitted Transaction.Write $ Hasql.Transaction.sql [uncheckedSql|
      UPDATE author
      SET author_id = author_id + 31,
      name = CAST(E'idontgetoutmuch' AS text),
      url = author.url
      WHERE "author"."name" = (CAST(E'Emily Pilmore' AS text))"
      |]

[idontgetoutmuch]

newtype AuthorId = AuthrId { toInt64 :: Int64 }
  deriving newtype (DBEq, DBType, DBNum, Eq, Show)


preUrj :: Update ()
preUrj = Rel8.Update
  { target = authorSchema
  , from = pure ()
  , set = \_ r -> r {  authorId = 1 + authorId r, Main.name = "idontgetoutmuch" }
  , updateWhere = \_ r -> Main.name r Rel8.==. (litExpr "Emily Pilmore")
  , returning = pure ()
  }

[ocharles]

That's the one! Glad you figured it out :)