From deac764f0d62911d6ac6fc5ed63d29eefef1ca4f Mon Sep 17 00:00:00 2001 From: tali Date: Mon, 15 Jan 2024 01:40:11 -0500 Subject: [PATCH] fix Sdl.Error --- src/import.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/import.ml b/src/import.ml index c7d965a..9c87c89 100644 --- a/src/import.ml +++ b/src/import.ml @@ -1,5 +1,3 @@ -exception Sdl of string - module Sdl = struct include Tsdl.Sdl @@ -7,7 +5,7 @@ module Sdl = struct let or_exn = function | 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 gl_create_context_exn w = gl_create_context w |> or_exn