13 lines
258 B
Haskell
13 lines
258 B
Haskell
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
|