Cleanup

2021-11-28 22:38:26 +00:00
parent 8c5777a1af
commit 8832a73d86
9 changed files with 21 additions and 24 deletions
@@ -180,7 +180,7 @@ scodeToChar = toEnum . (+ 61) . fromIntegral . toNumber
 updateFramebufferSize :: Universe -> Universe
 updateFramebufferSize u = u & uvWorld . sideEffects %~ sideEffectUpdatePreload divRes x y
  where 
-    (x,y) = (round $ getWindowX cfig, round $ getWindowY cfig)
+    (x,y) = (round $ _windowX cfig, round $ _windowY cfig)
    cfig = _config u
    divRes = u ^. config . resolution_factor