Cleanup

src/Shader/Compile.hs

@@ -331,3 +331,5 @@ withByteString :: Num t => BS.ByteString -> (Ptr b -> t -> IO a) -> IO a
 withByteString bs act =
     BU.unsafeUseAsCStringLen bs $ \(ptr, size) ->
         act (castPtr ptr) (fromIntegral size)
+
+--boVertex

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