To openglraw

src/GLHelp.hs

@@ -1,9 +1,9 @@
 module GLHelp where
-import Foreign.Ptr
+
 import Foreign.Marshal
+import Foreign.Ptr
 import Foreign.Storable
 import Graphics.GL.Core45
-import Graphics.Rendering.OpenGL hiding (Point, imageHeight, scale, translate)
 
 mglCreate :: (GLsizei -> Ptr GLuint -> IO ()) -> IO GLuint
 mglCreate f = do
@@ -13,7 +13,3 @@ mglCreate f = do
 
 mglDelete :: (GLsizei -> Ptr GLuint -> IO ()) -> GLuint -> IO ()
 mglDelete f i = with i $ \ptr -> f 1 ptr
-
-unTexture :: TextureObject -> GLuint
-unTexture (TextureObject t) = t
-