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