iitalics
/
geometra
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix Sdl.Error

This commit is contained in:
tali 2024-01-15 01:40:11 -05:00
parent e939348b3d
commit deac764f0d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/import.ml
View File

@ -1,5 +1,3 @@
exception Sdl of string
module Sdl = struct module Sdl = struct
include Tsdl.Sdl include Tsdl.Sdl
@ -7,7 +5,7 @@ module Sdl = struct
let or_exn = function let or_exn = function
| Ok x -> x | Ok x -> x
| Error (`Msg e) -> raise (Sdl e) | Error (`Msg e) -> raise (Error e)
let create_window_exn t ~w ~h fl = create_window t ~w ~h fl |> or_exn 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_create_context_exn w = gl_create_context w |> or_exn