Add file

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