Skip to content

Commit 720d913

Browse files
committed
On second thought, don't re-export things.
1 parent f8c5257 commit 720d913

File tree

4 files changed

+12
-20
lines changed

4 files changed

+12
-20
lines changed

OpenGLRaw.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
name: OpenGLRaw
2-
version: 2.2.0.0
2+
version: 2.3.0.0
33
synopsis: A raw binding for the OpenGL graphics system
44
description:
55
OpenGLRaw is a raw Haskell binding for the OpenGL 4.5 graphics system and

RegistryProcessor/src/Main.hs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -62,6 +62,11 @@ 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 "-- 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 ""
6570
SI.hPutStrLn h "import Foreign.Marshal.Error ( throwIf )"
6671
SI.hPutStrLn h "import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )"
6772
SI.hPutStrLn h "import System.IO.Unsafe ( unsafePerformIO )"

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

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

3082+
-- Make the foreign imports happy.
3083+
import Data.Int
3084+
import Data.Word
3085+
import Foreign.C.Types
3086+
30823087
import Foreign.Marshal.Error ( throwIf )
30833088
import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )
30843089
import System.IO.Unsafe ( unsafePerformIO )

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

Lines changed: 1 addition & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -56,25 +56,7 @@ module Graphics.Rendering.OpenGL.Raw.Types (
5656
GLclampx,
5757
GLhandleARB,
5858
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
7860
) where
7961

8062
import Data.Int

0 commit comments

Comments
 (0)