Cleanup

src/Shader/Data.hs

@@ -83,6 +83,14 @@ data VBO = VBO
     -- add int for AMOUNT of data poked!
     }
 
+data BOType = WindowPoss
+
+data FloatBO = FloatBO
+    { _boName :: GLuint
+    , _boPtr :: Ptr Float
+    , _boType :: BOType
+    }
+
 data EBO = EBO
     { _eboName :: GLuint
     , _eboPtr :: Ptr GLushort