still WIP.

2014-03-24 23:26:02 +01:00
parent c1e074934e
commit 9cd0eacd31
3 changed files with 12 additions and 6 deletions
--- a/src/Types.hs
+++ b/src/Types.hs
@ -3,7 +3,7 @@ module Types where

 import           Control.Concurrent.STM               (TQueue)
 import qualified Graphics.Rendering.OpenGL.GL         as GL
-import           Graphics.UI.SDL                      as SDL (Event, Window, Texture)
+import           Graphics.UI.SDL                      as SDL (Event, Window, Texture, Renderer)
 import           Foreign.C                            (CFloat)
 import           Data.Time                            (UTCTime)
 import Linear.Matrix (M44)
@ -19,6 +19,7 @@ data Env = Env
    , _zDistFarthest :: !Double
    --, envGLContext     :: !GLContext
    --, envFont          :: TTF.TTFFont
+    , _renderer      :: !Renderer
    }

 --Mutable State