WIP-Commit. DOES NOT WORK.

src/Types.hs

@@ -84,6 +84,7 @@ data GLMapState = GLMapState
     , _stateTessellationFactor :: !Int
     , _stateMap             :: !GL.BufferObject
     , _mapVert              :: !GL.NumArrayIndices
+    , _mapProgram           :: !GL.Program
     }
 
 data GLState = GLState
@@ -91,6 +92,10 @@ data GLState = GLState
     , _hudTexture      :: Maybe Texture
     }
 
+data UIState = UIState
+    {
+    }
+
 data State = State
     { _window              :: !WindowState
     , _camera              :: !CameraState
@@ -99,6 +104,7 @@ data State = State
     , _keyboard            :: !KeyboardState
     , _gl                  :: !GLState
     , _game                :: !GameState
+    , _ui                  :: !UIState
     }
 
 $(makeLenses ''State)
@@ -113,6 +119,7 @@ $(makeLenses ''CameraState)
 $(makeLenses ''WindowState)
 $(makeLenses ''Position)
 $(makeLenses ''Env)
+$(makeLenses ''UIState)
 
 
 type Pioneers = RWST Env () State IO