diff options
Diffstat (limited to 'PointPrimitiveRing.hs')
-rw-r--r-- | PointPrimitiveRing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/PointPrimitiveRing.hs b/PointPrimitiveRing.hs index 47819e3..3647d4a 100644 --- a/PointPrimitiveRing.hs +++ b/PointPrimitiveRing.hs | |||
@@ -84,11 +84,11 @@ updateRingCommands r = do | |||
84 | readIORef (objCommands $ rObject r) >>= mapM_ print | 84 | readIORef (objCommands $ rObject r) >>= mapM_ print |
85 | return () | 85 | return () |
86 | 86 | ||
87 | pushBack :: Ring keys -> Writer [DSum AttributeKey GLUniformValue] a -> IO () | 87 | pushBack :: Ring keys -> (keys -> Writer [DSum AttributeKey GLUniformValue] a) -> IO () |
88 | pushBack r attrs = do | 88 | pushBack r attrs = do |
89 | back <- readIORef $ rBack r | 89 | back <- readIORef $ rBack r |
90 | writeIORef (rBack r) (mod (back + 1) (ringCapacity r)) | 90 | writeIORef (rBack r) (mod (back + 1) (ringCapacity r)) |
91 | updateAttributes back attrs | 91 | updateAttributes back $ attrs (rKeys r) |
92 | sz <- readIORef (rSize r) | 92 | sz <- readIORef (rSize r) |
93 | when (sz < ringCapacity r) $ writeIORef (rSize r) (sz + 1) | 93 | when (sz < ringCapacity r) $ writeIORef (rSize r) (sz + 1) |
94 | updateRingCommands r | 94 | updateRingCommands r |