justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Hlint

Browse Source
This commit is contained in:
justin
2025-11-22 11:31:06 +00:00
parent a381633dc8
commit b1bd52b09e
4 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldLoad.hs
+3 -4
View File
@@ -13,13 +13,12 @@ import Foreign.Marshal
postUniverseLoadSideEffect :: Universe -> Universe
postUniverseLoadSideEffect =
uvIOEffects
%~ (\f uv -> (postWorldLoad (uv ^. preloadData . renderData) uv) >>= f)
uvIOEffects %~ (\f uv -> postWorldLoad (uv ^. preloadData . renderData) uv >>= f)
postWorldLoad :: RenderData -> Universe -> IO Universe
postWorldLoad rdata cw = do
let floorbo = (rdata ^. floorVBO . vboName)
floorptr = (rdata ^. floorVBO . vboPtr)
let floorbo = rdata ^. floorVBO . vboName
floorptr = rdata ^. floorVBO . vboPtr
chbo = rdata ^. chasmVBO . vboName
chptr = rdata ^. chasmVBO . vboPtr
glInvalidateBufferData floorbo