From 3826a63d901655a3b25d224c60588fd63706e90e Mon Sep 17 00:00:00 2001
From: Sven Panne <svenpanne@gmail.com>
Date: Tue, 21 Oct 2014 13:42:26 +0200
Subject: [PATCH] Export state variable constructors. Add Functor instance for
 GettableStateVar. Bumped version number to 2.9.3.0. Fixes #60.

---
 Graphics/Rendering/OpenGL/GL/StateVar.hs | 9 ++++++---
 OpenGL.cabal                             | 2 +-
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Graphics/Rendering/OpenGL/GL/StateVar.hs b/Graphics/Rendering/OpenGL/GL/StateVar.hs
index 60a61c3..484a891 100644
--- a/Graphics/Rendering/OpenGL/GL/StateVar.hs
+++ b/Graphics/Rendering/OpenGL/GL/StateVar.hs
@@ -47,12 +47,12 @@
 module Graphics.Rendering.OpenGL.GL.StateVar (
    -- * Readable State Variables
    HasGetter(..),
-   GettableStateVar, makeGettableStateVar,
+   GettableStateVar(..), makeGettableStateVar,
    -- * Writable State Variables
    HasSetter(..),
-   SettableStateVar, makeSettableStateVar,
+   SettableStateVar(..), makeSettableStateVar,
    -- * General State Variables
-   StateVar, makeStateVar,
+   StateVar(..), makeStateVar,
    -- * Utility Functions
    ($~), ($=!), ($~!)
 ) where
@@ -80,6 +80,9 @@ newtype GettableStateVar a = GettableStateVar (IO a)
 instance HasGetter GettableStateVar where
    get (GettableStateVar g) = g
 
+instance Functor GettableStateVar where
+  fmap f (GettableStateVar g) = GettableStateVar (fmap f g)
+
 -- | Construct a 'GettableStateVar' from an IO action.
 makeGettableStateVar :: IO a -> GettableStateVar a
 makeGettableStateVar = GettableStateVar
diff --git a/OpenGL.cabal b/OpenGL.cabal
index 7442595..26c8e55 100644
--- a/OpenGL.cabal
+++ b/OpenGL.cabal
@@ -1,5 +1,5 @@
 name: OpenGL
-version: 2.9.2.0
+version: 2.9.3.0
 license: BSD3
 license-file: LICENSE
 maintainer: Sven Panne <svenpanne@gmail.com>, Jason Dagit <dagitj@gmail.com>