Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -9,5 +9,5 @@ clockCycle :: Int -> V.Vector a -> World -> a
 clockCycle tPeriod xs w = xs V.! i 
  where
    l = V.length xs
-    t = _worldClock w `mod` (l * tPeriod)
+    t = _worldClock (_cWorld w) `mod` (l * tPeriod)
    i = t `div` tPeriod