
  0 | module Oracle.Error
  1 | 
  2 | import Oracle.FFI.Error
  3 | import Oracle.Types.Error
  4 | 
  5 | ||| Retrieve the most recent Oracle error.
  6 | |||
  7 | export
  8 | getLastError : IO OracleError
  9 | getLastError = do
 10 |   code <- primIO prim__getErrorCode
 11 |   msg  <- primIO prim__getErrorMessage
 12 |   pure $
 13 |     MkOracleError code
 14 |                   msg
 15 |                   "unknown"
 16 |                   False
 17 |