Move FBOs to opengl raw

src/GLHelp.hs

@@ -3,6 +3,7 @@ import Foreign.Ptr
 import Foreign.Marshal
 import Foreign.Storable
 import Graphics.GL.Core45
+import Graphics.Rendering.OpenGL hiding (Point, imageHeight, scale, translate)
 
 
 mglCreateSingle :: (GLsizei -> Ptr GLuint -> IO ()) -> IO GLuint
@@ -10,3 +11,7 @@ mglCreateSingle f = do
     alloca $ \nameptr -> do
         f 1 nameptr
         peek nameptr
+
+unTexture :: TextureObject -> GLuint
+unTexture (TextureObject t) = t
+