open! Import
include Tsdl.Sdl

exception Error of string

let or_exn = function
  | Ok x -> x
  | Error (`Msg e) -> raise (Error e)

let create_window_exn t ~w ~h fl = create_window t ~w ~h fl |> or_exn
let gl_create_context_exn w = gl_create_context w |> or_exn
let gl_make_current_exn w gl = gl_make_current w gl |> or_exn
let gl_set_swap_interval_exn i = gl_set_swap_interval i |> or_exn