File tree Expand file tree Collapse file tree 4 files changed +12
-20
lines changed
src/Graphics/Rendering/OpenGL/Raw Expand file tree Collapse file tree 4 files changed +12
-20
lines changed Original file line number Diff line number Diff line change 1
1
name : OpenGLRaw
2
- version : 2.2 .0.0
2
+ version : 2.3 .0.0
3
3
synopsis : A raw binding for the OpenGL graphics system
4
4
description :
5
5
OpenGLRaw is a raw Haskell binding for the OpenGL 4.5 graphics system and
Original file line number Diff line number Diff line change @@ -62,6 +62,11 @@ 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 " -- Make the foreign imports happy."
66
+ SI. hPutStrLn h " import Data.Int"
67
+ SI. hPutStrLn h " import Data.Word"
68
+ SI. hPutStrLn h " import Foreign.C.Types"
69
+ SI. hPutStrLn h " "
65
70
SI. hPutStrLn h " import Foreign.Marshal.Error ( throwIf )"
66
71
SI. hPutStrLn h " import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )"
67
72
SI. hPutStrLn h " import System.IO.Unsafe ( unsafePerformIO )"
Original file line number Diff line number Diff line change @@ -3079,6 +3079,11 @@ module Graphics.Rendering.OpenGL.Raw.Functions (
3079
3079
glWriteMaskEXT
3080
3080
) where
3081
3081
3082
+ -- Make the foreign imports happy.
3083
+ import Data.Int
3084
+ import Data.Word
3085
+ import Foreign.C.Types
3086
+
3082
3087
import Foreign.Marshal.Error ( throwIf )
3083
3088
import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )
3084
3089
import System.IO.Unsafe ( unsafePerformIO )
Original file line number Diff line number Diff line change @@ -56,25 +56,7 @@ module Graphics.Rendering.OpenGL.Raw.Types (
56
56
GLclampx ,
57
57
GLhandleARB ,
58
58
GLvdpauSurfaceNV ,
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 (.. )
59
+ GLeglImageOES
78
60
) where
79
61
80
62
import Data.Int
You can’t perform that action at this time.
0 commit comments