Allow for events to do io

src/Dodge/Render.hs

@@ -5,7 +5,6 @@ module Dodge.Render
     )
   where
 import Dodge.Data
-import Dodge.Base.Window
 import Dodge.Render.Picture
 import Dodge.Render.ShapePicture
 import Dodge.Render.Walls
@@ -32,10 +31,10 @@ import Graphics.GL.Core43
 
 doDrawing :: RenderData -> Universe -> IO Word32
 doDrawing pdata u = do
+    sTicks <- SDL.ticks
     let w = _uvWorld u
         cfig = _config u
-    sTicks <- SDL.ticks
-    let rot     = _cameraRot w
+        rot     = _cameraRot w
         camzoom    = _cameraZoom w
         trans = _cameraCenter w
         wins@(V2 winx winy)  = V2 (_windowX cfig) (_windowY cfig)