Fix pause menu

2021-11-28 14:32:03 +00:00
parent 462100703c
commit 1c5abfd6f2
2 changed files with 3 additions and 7 deletions
@@ -183,10 +183,6 @@ updateFramebufferSize w = w & sideEffects %~ sideEffectUpdatePreload divRes x y
  where 
    (x,y) = (round $ getWindowX w, round $ getWindowY w)
    divRes = w ^. config . resolution_factor
--    up :: (Universe -> IO Universe) -> Universe -> IO Universe
--    up f w' = do
--        pdata <- pdataResizeUpdate (x `div` divRes) (y `div` divRes) x y (_preloadData w')
--        f $ w' & uvWorld . preloadData .~ pdata
    
 --levelMenu :: Int -> ScreenLayer
 --levelMenu x = OptionScreen