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