gl 0.1 → 0.2
raw patch · 4 files changed
+10/−5 lines, 4 filesdep +halfdep ~basePVP ok
version bump matches the API change (PVP)
Dependencies added: half
Dependency ranges changed: base
API changes (from Hackage documentation)
- Graphics.GL.Raw.Types: type GLhalfNV = CUShort
+ Graphics.GL.Raw.Types: type GLhalfNV = Half
Files
- Generator.hs +3/−1
- dist/build/autogen/Graphics/GL/Raw/Internal/FFI.hs +1/−0
- gl.cabal +4/−3
- src/Graphics/GL/Raw/Types.hs +2/−1
Generator.hs view
@@ -410,6 +410,7 @@ , "Foreign.C.Types" , "Foreign.Ptr" , "Graphics.GL.Raw.Types"+ , "Numeric.Half" ] ] ++ nub (Foldable.concatMap invokers (funSignatures fm)) @@ -419,7 +420,8 @@ , Function ni (printf "MonadIO m => FunPtr (%s) -> %s" v' v) $ printf "fp %s = liftIO (%s fp %s)" params nd params ] where- numArgs = subtract 2 . length $ splitOn " -> " v+ parts = splitOn " -> " v+ numArgs = subtract 2 $ length parts params = joinOn " " $ map (\x -> "v" ++ show x) [0..numArgs] v' = ioish v nd = dynamicName v
dist/build/autogen/Graphics/GL/Raw/Internal/FFI.hs view
@@ -865,6 +865,7 @@ import Foreign.C.Types import Foreign.Ptr import Graphics.GL.Raw.Types+import Numeric.Half foreign import ccall "dynamic" dynenumfloatIOV :: FunPtr (GLenum -> GLfloat -> IO ()) -> GLenum -> GLfloat -> IO ()
gl.cabal view
@@ -1,13 +1,13 @@ name: gl-version: 0.1+version: 0.2 synopsis: Complete OpenGL raw bindings description: Complete OpenGL raw bindings license: BSD3 license-file: LICENSE author: Edward A. Kmett, Gabríel Arthúr Pétursson, Sven Panne maintainer: ekmett@gmail.com-copyright: Copyright © 2014 Edward A. Kmett- Copyright © 2014 Gabríel Arthúr Pétursson+copyright: Copyright © 2014 Edward A. Kmett,+ Copyright © 2014 Gabríel Arthúr Pétursson, Copyright © 2013 Sven Panne category: Graphics build-type: Custom@@ -39,6 +39,7 @@ build-depends: base == 4.* , containers == 0.5.*+ , half >= 0.1 && < 0.2 , transformers >= 0.2 && < 0.5 , vector == 0.10.*
src/Graphics/GL/Raw/Types.hs view
@@ -59,6 +59,7 @@ import Data.Word import Foreign.C.Types import Foreign.Ptr+import Numeric.Half type GLDEBUGPROC = FunPtr (GLenum@@ -124,7 +125,7 @@ type GLenum = CUInt type GLfixed = GLint type GLfloat = CFloat-type GLhalfNV = CUShort+type GLhalfNV = Half type GLint = CInt type GLint64 = Int64 type GLint64EXT = Int64