File tree Expand file tree Collapse file tree 6 files changed +24
-25
lines changed
src/Graphics/Rendering/OpenGL/Raw Expand file tree Collapse file tree 6 files changed +24
-25
lines changed Original file line number Diff line number Diff line change 1
1
name : OpenGLRaw
2
- version : 2.1 .0.0
2
+ version : 2.2 .0.0
3
3
synopsis : A raw binding for the OpenGL graphics system
4
4
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
6
6
lots of OpenGL extensions. It is basically a 1 :1 mapping of OpenGL's C API,
7
7
intended as a basis for a nicer interface. OpenGLRaw offers access to all
8
8
necessary functions, tokens and types plus a general facility for loading
@@ -97,7 +97,6 @@ library
97
97
Graphics.Rendering.OpenGL.Raw.ARB.ClearTexture
98
98
Graphics.Rendering.OpenGL.Raw.ARB.ClipControl
99
99
Graphics.Rendering.OpenGL.Raw.ARB.ColorBufferFloat
100
- Graphics.Rendering.OpenGL.Raw.ARB.Compatibility
101
100
Graphics.Rendering.OpenGL.Raw.ARB.CompressedTexturePixelStorage
102
101
Graphics.Rendering.OpenGL.Raw.ARB.ComputeShader
103
102
Graphics.Rendering.OpenGL.Raw.ARB.ComputeVariableGroupSize
Original file line number Diff line number Diff line change @@ -62,7 +62,6 @@ printFunctions api registry = do
62
62
SI. hPutStrLn h . separate unCommandName . M. keys . commands $ registry
63
63
SI. hPutStrLn h " ) where"
64
64
SI. hPutStrLn h " "
65
- SI. hPutStrLn h " import Foreign.C.Types"
66
65
SI. hPutStrLn h " import Foreign.Marshal.Error ( throwIf )"
67
66
SI. hPutStrLn h " import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )"
68
67
SI. hPutStrLn h " import System.IO.Unsafe ( unsafePerformIO )"
@@ -168,7 +167,9 @@ nameAndModifications api e =
168
167
(extensionName e,
169
168
[ conditionalModificationModification cm
170
169
| 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 ])
172
173
173
174
supports :: API -> Maybe [API ] -> Bool
174
175
_ `supports` Nothing = True
Original file line number Diff line number Diff line change @@ -22,7 +22,6 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
22
22
module Graphics.Rendering.OpenGL.Raw.ARB.CLEvent ,
23
23
module Graphics.Rendering.OpenGL.Raw.ARB.ClipControl ,
24
24
module Graphics.Rendering.OpenGL.Raw.ARB.ColorBufferFloat ,
25
- module Graphics.Rendering.OpenGL.Raw.ARB.Compatibility ,
26
25
module Graphics.Rendering.OpenGL.Raw.ARB.CompressedTexturePixelStorage ,
27
26
module Graphics.Rendering.OpenGL.Raw.ARB.ComputeShader ,
28
27
module Graphics.Rendering.OpenGL.Raw.ARB.ComputeVariableGroupSize ,
Load Diff This file was deleted.
Original file line number Diff line number Diff line change @@ -3079,7 +3079,6 @@ module Graphics.Rendering.OpenGL.Raw.Functions (
3079
3079
glWriteMaskEXT
3080
3080
) where
3081
3081
3082
- import Foreign.C.Types
3083
3082
import Foreign.Marshal.Error ( throwIf )
3084
3083
import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )
3085
3084
import System.IO.Unsafe ( unsafePerformIO )
Original file line number Diff line number Diff line change @@ -56,7 +56,25 @@ module Graphics.Rendering.OpenGL.Raw.Types (
56
56
GLclampx ,
57
57
GLhandleARB ,
58
58
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 (.. )
60
78
) where
61
79
62
80
import Data.Int
You can’t perform that action at this time.
0 commit comments