lowgl-0.4.0.0: Graphics/GL/Low/Classes.hs

module Graphics.GL.Low.Classes where

import Graphics.GL

-- | Mappable to GL enums.
class ToGL a where
  toGL :: (Num b, Eq b) => a -> b

instance ToGL Bool where
  toGL True  = GL_TRUE
  toGL False = GL_FALSE