Use the Half type from the half package. Bumped version to 2.6.0.0.

Author: svenpanne

CHANGELOG.md

@@ -1,3 +1,7 @@
+2.6.0.0
+-------
+* Use the `Half` type from the `half` package.
+
 2.5.5.0
 -------
 * Added retrieval of version info and extensions.

OpenGLRaw.cabal

@@ -1,5 +1,5 @@
 name: OpenGLRaw
-version: 2.5.5.0
+version: 2.6.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
@@ -602,12 +602,12 @@ library
     cbits/HsOpenGLRaw.c
   hs-source-dirs: src
   build-depends:
-    base         >= 4   && < 5,
-    bytestring   >= 0.9 && < 0.11,
-    containers   >= 0.3 && < 0.6,
+    base         >= 4       && < 5,
+    bytestring   >= 0.9     && < 0.11,
+    containers   >= 0.3     && < 0.6,
     half         >= 0.2.2.1 && < 0.3,
-    text         >= 0.1 && < 1.3,
-    transformers >= 0.2 && < 0.5
+    text         >= 0.1     && < 1.3,
+    transformers >= 0.2     && < 0.5
   default-language: Haskell2010
   ghc-options: -Wall
   other-extensions: CPP

RegistryProcessor/src/Main.hs

@@ -161,6 +161,7 @@ printForeign sigMap = do
     SI.hPutStrLn h "import Foreign.C.Types"
     SI.hPutStrLn h "import Foreign.Ptr"
     SI.hPutStrLn h $ "import " ++ moduleNameFor ["Types"]
+    SI.hPutStrLn h "import Numeric.Half"
     SI.hPutStrLn h ""
     mapM_ (SI.hPutStrLn h . uncurry makeImportDynamic) (M.assocs sigMap)
 

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

@@ -19,6 +19,7 @@ module Graphics.Rendering.OpenGL.Raw.Foreign where
 import Foreign.C.Types
 import Foreign.Ptr
 import Graphics.Rendering.OpenGL.Raw.Types
+import Numeric.Half
 
 foreign import CALLCONV "dynamic" dyn201
   :: FunPtr (GLDEBUGPROC -> Ptr a -> IO ())

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

@@ -63,6 +63,7 @@ import Data.Int
 import Data.Word
 import Foreign.C.Types
 import Foreign.Ptr
+import Numeric.Half
 
 --------------------------------------------------------------------------------
 
@@ -121,7 +122,7 @@ type GLsync = Ptr ()
 type GLbitfield = CUInt
 
 -- | 16bit half-precision floating-point value encoded in an unsigned scalar.
-type GLhalf = CUShort
+type GLhalf = Half
 
 -- | 32bit floating-point value.
 type GLfloat = CFloat
@@ -167,9 +168,9 @@ type GLintptrARB = CPtrdiff
 
 type GLsizeiptrARB = CPtrdiff
 
-type GLhalfARB = CUShort
+type GLhalfARB = Half
 
-type GLhalfNV = CUShort
+type GLhalfNV = Half
 
 type GLDEBUGPROCAMD = FunPtr GLDEBUGPROCAMDFunc