From 2b118777b599998ab833745ccd6761478e40921f Mon Sep 17 00:00:00 2001 From: justin Date: Thu, 9 Mar 2023 09:53:23 +0000 Subject: [PATCH] Add file --- src/GLHelp.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 src/GLHelp.hs diff --git a/src/GLHelp.hs b/src/GLHelp.hs new file mode 100644 index 000000000..6355f0c14 --- /dev/null +++ b/src/GLHelp.hs @@ -0,0 +1,12 @@ +module GLHelp where +import Foreign.Ptr +import Foreign.Marshal +import Foreign.Storable +import Graphics.GL.Core45 + + +mglCreateSingle :: (Ptr GLuint -> IO ()) -> IO GLuint +mglCreateSingle f = do + alloca $ \nameptr -> do + f nameptr + peek nameptr