Skip to content

Commit

Permalink
On second thought, don't re-export things.
Browse files Browse the repository at this point in the history
  • Loading branch information
svenpanne committed Feb 19, 2015
1 parent f8c5257 commit 720d913
Show file tree
Hide file tree
Showing 4 changed files with 12 additions and 20 deletions.
2 changes: 1 addition & 1 deletion OpenGLRaw.cabal
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
name: OpenGLRaw
version: 2.2.0.0
version: 2.3.0.0
synopsis: A raw binding for the OpenGL graphics system
description:
OpenGLRaw is a raw Haskell binding for the OpenGL 4.5 graphics system and
Expand Down
5 changes: 5 additions & 0 deletions RegistryProcessor/src/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -62,6 +62,11 @@ printFunctions api registry = do
SI.hPutStrLn h . separate unCommandName . M.keys . commands $registry
SI.hPutStrLn h ") where"
SI.hPutStrLn h ""
SI.hPutStrLn h "-- Make the foreign imports happy."
SI.hPutStrLn h "import Data.Int"
SI.hPutStrLn h "import Data.Word"
SI.hPutStrLn h "import Foreign.C.Types"
SI.hPutStrLn h ""
SI.hPutStrLn h "import Foreign.Marshal.Error ( throwIf )"
SI.hPutStrLn h "import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )"
SI.hPutStrLn h "import System.IO.Unsafe ( unsafePerformIO )"
Expand Down
5 changes: 5 additions & 0 deletions src/Graphics/Rendering/OpenGL/Raw/Functions.hs
Original file line number Diff line number Diff line change
Expand Up @@ -3079,6 +3079,11 @@ module Graphics.Rendering.OpenGL.Raw.Functions (
glWriteMaskEXT
) where

-- Make the foreign imports happy.
import Data.Int
import Data.Word
import Foreign.C.Types

import Foreign.Marshal.Error ( throwIf )
import Foreign.Ptr ( Ptr, FunPtr, nullFunPtr )
import System.IO.Unsafe ( unsafePerformIO )
Expand Down
20 changes: 1 addition & 19 deletions src/Graphics/Rendering/OpenGL/Raw/Types.hs
Original file line number Diff line number Diff line change
Expand Up @@ -56,25 +56,7 @@ module Graphics.Rendering.OpenGL.Raw.Types (
GLclampx,
GLhandleARB,
GLvdpauSurfaceNV,
GLeglImageOES,

-- * Re-exports
CChar(..),
CDouble(..),
CFloat(..),
CInt(..),
CPtrdiff(..),
CSChar(..),
CShort(..),
CUChar(..),
CUInt(..),
CUShort(..),

Int64(..),
Word64(..),

FunPtr(..),
Ptr(..)
GLeglImageOES
) where

import Data.Int
Expand Down

0 comments on commit 720d913

Please sign in to comment.