Tx rollback error

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
class val TxRollbackError
  """
  Error rolling back a transaction.
  """
  let _kind: TxRollbackErrorKind
  let _diag: DiagChain

  new val create(kind': TxRollbackErrorKind, diag': DiagChain =
    recover val Array[DiagRecord] end) =>
    _kind = kind'
    _diag = diag'

  fun kind(): TxRollbackErrorKind => _kind

  fun string(): String iso^ =>
    recover iso
      String
        .> append("TxRollbackError: ")
        .> append(_kind.string())
    end

  fun unsafe_diag(): DiagChain => _diag

type TxRollbackErrorKind is (RollbackNotInTransaction | DriverRollbackError)

primitive RollbackNotInTransaction
  """
  Rollback called without an active transaction.
  """
  fun string(): String val => "not in transaction"

primitive DriverRollbackError
  """
  ODBC driver reported an error during rollback.
  """
  fun string(): String val => "driver error"