Fix resize crash

2023-03-24 14:21:12 +00:00
parent 000fcbc1c9
commit 20c05be23f
8 changed files with 99 additions and 60 deletions
@@ -13,6 +13,8 @@ import Dodge.Data.Universe
 testStringInit :: Universe -> [String]
 testStringInit u = [show $ length $ lightsToRender (u ^. uvConfig) (u ^. uvWorld . cWorld . camPos) 
        (u ^. uvWorld . cWorld . lWorld)
+        , show $ u ^. uvConfig . windowX
+        , show $ u ^. uvConfig . windowY
        , show $ u ^. uvWorld . input . scrollTestInt
        ]
    --[show $ u ^? uvWorld . hud . hudElement . diSections . sssExtra . sssSelPos . _Just]