diff --git a/lib/brrer/indexed_db.ml b/lib/brrer/indexed_db.ml index f717871..6e87ed8 100644 --- a/lib/brrer/indexed_db.ml +++ b/lib/brrer/indexed_db.ml @@ -59,7 +59,7 @@ module Request = struct let fut t = let result_fut, set = Fut.create () in let _ = on_success ~f:(fun _ t -> set (Ok (result t))) t in - let _ = on_error ~f:(fun _ t -> set (Error (`Jv (error t)))) t in + let _ = on_error ~f:(fun _ t -> set (Error (error t))) t in result_fut end diff --git a/lib/brrer/indexed_db.mli b/lib/brrer/indexed_db.mli index d5ce06e..910e7ea 100644 --- a/lib/brrer/indexed_db.mli +++ b/lib/brrer/indexed_db.mli @@ -48,7 +48,7 @@ module Request : sig val result : 'a t -> 'a val on_success : f:(Ev.Type.void Ev.t -> 'a t -> unit) -> 'a t -> 'a t val on_error : f:(Ev.Type.void Ev.t -> 'a t -> unit) -> 'a t -> 'a t - val fut : 'a t -> ('a, [> `Jv of Jv.Error.t ]) Fut.result + val fut : 'a t -> 'a Fut.or_error end module type Key = sig