Move universe IO effects outside of world

2022-07-23 12:53:20 +01:00
parent 2892bb25f0
commit 12fad676f2
12 changed files with 41 additions and 44 deletions
@@ -74,7 +74,7 @@ handleResizeEvent :: WindowSizeChangedEventData -> Universe -> IO (Maybe Univers
 handleResizeEvent sev u = return . Just $ u
    & uvConfig . windowX .~ fromIntegral x
    & uvConfig . windowY .~ fromIntegral y
-    & uvWorld . sideEffects %~ sideEffectUpdatePreload divRes x y
+    & uvIOEffects %~ sideEffectUpdatePreload divRes x y
  where
    x = fromIntegral x'
    y = fromIntegral y'