{-# OPTIONS_HADDOCK hide #-}
module Graphics.Rendering.OpenGL.GL.GLboolean (
marshalGLboolean, unmarshalGLboolean
) where
import Graphics.GL
marshalGLboolean :: Num a => Bool -> a
marshalGLboolean :: forall a. Num a => Bool -> a
marshalGLboolean Bool
x = forall a b. (Integral a, Num b) => a -> b
fromIntegral forall a b. (a -> b) -> a -> b
$ case Bool
x of
Bool
False -> GLboolean
GL_FALSE
Bool
True -> GLboolean
GL_TRUE
unmarshalGLboolean :: (Eq a, Num a) => a -> Bool
unmarshalGLboolean :: forall a. (Eq a, Num a) => a -> Bool
unmarshalGLboolean = (forall a. Eq a => a -> a -> Bool
/= forall a b. (Integral a, Num b) => a -> b
fromIntegral GLboolean
GL_FALSE)