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