To openglraw

src/Dodge/PreloadData.hs

@@ -1,14 +1,12 @@
 module Dodge.PreloadData where
 
---import qualified Graphics.Rendering.OpenGL as GL
 import Control.Lens
 import Dodge.Data.Universe
 import Preload.Update
---import SDL
 
 sideEffectUpdatePreload :: Int -> Int -> Int -> (Universe -> IO Universe) -> Universe -> IO Universe
 sideEffectUpdatePreload divRes x y f u = do
---    GL.viewport $= (GL.Position 0 0, GL.Size (fromIntegral x) (fromIntegral y))
+    --    GL.viewport $= (GL.Position 0 0, GL.Size (fromIntegral x) (fromIntegral y))
     pdata <- pdataResizeUpdate (x `div` divRes) (y `div` divRes) x y (_preloadData u)
     f $ u & preloadData .~ pdata