Added deprecated mkFOO functions for gl compatibility.

haskell-opengl · Jan 10, 2016 · fb8c3b8 · fb8c3b8
1 parent ad3af6d
commit fb8c3b8
Showing 1 changed file with 24 additions and 1 deletion.
diff --git a/src/Graphics/GL/Types.hs b/src/Graphics/GL/Types.hs
@@ -56,7 +56,14 @@ module Graphics.GL.Types (
   GLclampx,
   GLhandleARB,
   GLvdpauSurfaceNV,
-  GLeglImageOES
+  GLeglImageOES,
+
+  -- * Deprecated functions for @gl@ compatibility.
+  mkGLDEBUGPROC,
+  mkGLDEBUGPROCAMD,
+  mkGLDEBUGPROCARB,
+  mkGLDEBUGPROCKHR
+
 ) where
 
 import Data.Int
@@ -214,3 +221,19 @@ type GLhandleARB = Word32
 type GLvdpauSurfaceNV = GLintptr
 
 type GLeglImageOES = Ptr ()
+
+{-# DEPRECATED mkGLDEBUGPROC "Use 'makeGLDEBUGPROC' instead." #-}
+mkGLDEBUGPROC :: GLDEBUGPROCFunc -> IO (FunPtr GLDEBUGPROCFunc)
+mkGLDEBUGPROC = makeGLDEBUGPROC
+
+{-# DEPRECATED mkGLDEBUGPROCAMD "Use 'makeGLDEBUGPROCAMD' instead." #-}
+mkGLDEBUGPROCAMD :: GLDEBUGPROCAMDFunc -> IO (FunPtr GLDEBUGPROCAMDFunc)
+mkGLDEBUGPROCAMD = makeGLDEBUGPROCAMD
+
+{-# DEPRECATED mkGLDEBUGPROCARB "Use 'makekGLDEBUGPROCARB' instead." #-}
+mkGLDEBUGPROCARB :: GLDEBUGPROCARBFunc -> IO (FunPtr GLDEBUGPROCARBFunc)
+mkGLDEBUGPROCARB = makeGLDEBUGPROCARB
+
+{-# DEPRECATED mkGLDEBUGPROCKHR "Use 'makeGLDEBUGPROCKHR' instead." #-}
+mkGLDEBUGPROCKHR :: GLDEBUGPROCKHRFunc -> IO (FunPtr GLDEBUGPROCKHRFunc)
+mkGLDEBUGPROCKHR = makeGLDEBUGPROCKHR