updateStateViewportSize :: Word -> Word -> LambdaCubeEnv t -> IO ()
updateStateViewportSize w h LambdaCubeEnv{..} = do
  m <- snd <$> readIORef lambdaEnvStorages
  mapM_ (\s -> LambdaCubeGL.setScreenSize s w h) m

-- | Returns True if given pipeline is already exists
updateStateViewportSize :: Word -> Word -> LambdaCubeEnv t -> IO ()
updateStateViewportSize w h LambdaCubeEnv{..} = do
  m <- snd <$> readIORef lambdaEnvStorages
  mapM_ (\s -> LambdaCubeGL.setScreenSize s w h) m

-- | Returns True if given pipeline is already exists
updateStateViewportSize w h LambdaCubeEnv{..} = do
  m <- snd <$> readIORef lambdaEnvStorages
  mapM_ (\s -> LambdaCubeGL.setScreenSize s w h) m

-- | Returns True if given pipeline is already exists