File tree Expand file tree Collapse file tree 2 files changed +7
-4
lines changed
Graphics/Rendering/OpenGL/GL Expand file tree Collapse file tree 2 files changed +7
-4
lines changed Original file line number Diff line number Diff line change 47
47
module Graphics.Rendering.OpenGL.GL.StateVar (
48
48
-- * Readable State Variables
49
49
HasGetter (.. ),
50
- GettableStateVar , makeGettableStateVar ,
50
+ GettableStateVar ( .. ) , makeGettableStateVar ,
51
51
-- * Writable State Variables
52
52
HasSetter (.. ),
53
- SettableStateVar , makeSettableStateVar ,
53
+ SettableStateVar ( .. ) , makeSettableStateVar ,
54
54
-- * General State Variables
55
- StateVar , makeStateVar ,
55
+ StateVar ( .. ) , makeStateVar ,
56
56
-- * Utility Functions
57
57
($~) , ($=!) , ($~!)
58
58
) where
@@ -80,6 +80,9 @@ newtype GettableStateVar a = GettableStateVar (IO a)
80
80
instance HasGetter GettableStateVar where
81
81
get (GettableStateVar g) = g
82
82
83
+ instance Functor GettableStateVar where
84
+ fmap f (GettableStateVar g) = GettableStateVar (fmap f g)
85
+
83
86
-- | Construct a 'GettableStateVar' from an IO action.
84
87
makeGettableStateVar :: IO a -> GettableStateVar a
85
88
makeGettableStateVar = GettableStateVar
Original file line number Diff line number Diff line change 1
1
name : OpenGL
2
- version : 2.9.2 .0
2
+ version : 2.9.3 .0
3
3
license : BSD3
4
4
license-file : LICENSE
5
5
maintainer : Sven Panne <svenpanne@gmail.com>, Jason Dagit <dagitj@gmail.com>
You can’t perform that action at this time.
0 commit comments