Move towards uploading certain vbos less than once per frame (floor)

src/Data/Preload/Render.hs

@@ -56,6 +56,8 @@ data RenderData = RenderData
     , _vboWalls :: VBO
     , _vboWindows :: VBO
     , _vboShapes :: VBO
+    , _floorVBO :: VBO
+    , _floorShader :: FullShader
     , _toNormalMaps :: TO
     }