Skip to content

Commit 50f6b14

Browse files
committed
Re-export basic types. Removed empty ARB_compatiblity. Bumped version to 2.2.0.0.
1 parent d6837b2 commit 50f6b14

File tree

6 files changed

+24
-25
lines changed

6 files changed

+24
-25
lines changed

OpenGLRaw.cabal

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
11
name: OpenGLRaw
2-
version: 2.1.0.0
2+
version: 2.2.0.0
33
synopsis: A raw binding for the OpenGL graphics system
44
description:
5-
OpenGLRaw is a raw Haskell binding for the OpenGL 3.2 graphics system and
5+
OpenGLRaw is a raw Haskell binding for the OpenGL 4.5 graphics system and
66
lots of OpenGL extensions. It is basically a 1:1 mapping of OpenGL's C API,
77
intended as a basis for a nicer interface. OpenGLRaw offers access to all
88
necessary functions, tokens and types plus a general facility for loading
@@ -97,7 +97,6 @@ library
9797
Graphics.Rendering.OpenGL.Raw.ARB.ClearTexture
9898
Graphics.Rendering.OpenGL.Raw.ARB.ClipControl
9999
Graphics.Rendering.OpenGL.Raw.ARB.ColorBufferFloat
100-
Graphics.Rendering.OpenGL.Raw.ARB.Compatibility
101100
Graphics.Rendering.OpenGL.Raw.ARB.CompressedTexturePixelStorage
102101
Graphics.Rendering.OpenGL.Raw.ARB.ComputeShader
103102
Graphics.Rendering.OpenGL.Raw.ARB.ComputeVariableGroupSize

RegistryProcessor/src/Main.hs

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,6 @@ printFunctions api registry = do
6262
SI.hPutStrLn h . separate unCommandName . M.keys . commands $registry
6363
SI.hPutStrLn h ") where"
6464
SI.hPutStrLn h ""
65-
SI.hPutStrLn h "import Foreign.C.Types"
6665
SI.hPutStrLn h "import Foreign.Marshal.Error ( throwIf )"
6766
SI.hPutStrLn h "import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )"
6867
SI.hPutStrLn h "import System.IO.Unsafe ( unsafePerformIO )"
@@ -168,7 +167,9 @@ nameAndModifications api e =
168167
(extensionName e,
169168
[ conditionalModificationModification cm
170169
| cm <- extensionsRequireRemove e
171-
, api `matches` conditionalModificationAPI cm ])
170+
, api `matches` conditionalModificationAPI cm
171+
-- ARB_compatibility has an empty "require" element only
172+
, not . null . modificationInterfaceElements . conditionalModificationModification $ cm ])
172173

173174
supports :: API -> Maybe [API] -> Bool
174175
_ `supports` Nothing = True

src/Graphics/Rendering/OpenGL/Raw/ARB.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,6 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
2222
module Graphics.Rendering.OpenGL.Raw.ARB.CLEvent,
2323
module Graphics.Rendering.OpenGL.Raw.ARB.ClipControl,
2424
module Graphics.Rendering.OpenGL.Raw.ARB.ColorBufferFloat,
25-
module Graphics.Rendering.OpenGL.Raw.ARB.Compatibility,
2625
module Graphics.Rendering.OpenGL.Raw.ARB.CompressedTexturePixelStorage,
2726
module Graphics.Rendering.OpenGL.Raw.ARB.ComputeShader,
2827
module Graphics.Rendering.OpenGL.Raw.ARB.ComputeVariableGroupSize,

src/Graphics/Rendering/OpenGL/Raw/ARB/Compatibility.hs

Lines changed: 0 additions & 17 deletions
This file was deleted.

src/Graphics/Rendering/OpenGL/Raw/Functions.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3079,7 +3079,6 @@ module Graphics.Rendering.OpenGL.Raw.Functions (
30793079
glWriteMaskEXT
30803080
) where
30813081

3082-
import Foreign.C.Types
30833082
import Foreign.Marshal.Error ( throwIf )
30843083
import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )
30853084
import System.IO.Unsafe ( unsafePerformIO )

src/Graphics/Rendering/OpenGL/Raw/Types.hs

Lines changed: 19 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -56,7 +56,25 @@ module Graphics.Rendering.OpenGL.Raw.Types (
5656
GLclampx,
5757
GLhandleARB,
5858
GLvdpauSurfaceNV,
59-
GLeglImageOES
59+
GLeglImageOES,
60+
61+
-- * Re-exports
62+
CChar(..),
63+
CDouble(..),
64+
CFloat(..),
65+
CInt(..),
66+
CPtrdiff(..),
67+
CSChar(..),
68+
CShort(..),
69+
CUChar(..),
70+
CUInt(..),
71+
CUShort(..),
72+
73+
Int64(..),
74+
Word64(..),
75+
76+
FunPtr(..),
77+
Ptr(..)
6078
) where
6179

6280
import Data.Int

0 commit comments

Comments
 (0)