nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

moving time initialization after window creation

Browse source
This commit is contained in:
nek0 2017-07-29 02:19:48 +02:00
parent aeb814a86a
commit f544b5f025
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Affection.hs
View file

@ -64,8 +64,6 @@ withAffection AffectionConfig{..} = do
renderQuality <- SDL.get SDL.HintRenderScaleQuality renderQuality <- SDL.get SDL.HintRenderScaleQuality
when (renderQuality /= SDL.ScaleLinear) $ when (renderQuality /= SDL.ScaleLinear) $
putStrLn "Warning: Linear texture filtering not enabled!" putStrLn "Warning: Linear texture filtering not enabled!"
-- get current time
execTime <- newIORef =<< getTime Monotonic
-- construct window -- construct window
window <- SDL.createWindow windowTitle windowConfig window <- SDL.createWindow windowTitle windowConfig
SDL.showWindow window SDL.showWindow window
@ -116,6 +114,8 @@ withAffection AffectionConfig{..} = do
, elapsedTime = 0 , elapsedTime = 0
, deltaTime = 0 , deltaTime = 0
}) <$> loadState }) <$> loadState
-- get current time
execTime <- newIORef =<< getTime Monotonic
(_, nState) <- runStateT ( A.runState $ do (_, nState) <- runStateT ( A.runState $ do
preLoop preLoop
whileM_ (do whileM_ (do