only update sysTime, when it had not changed

This commit is contained in:
nek0 2017-07-29 16:31:48 +02:00
parent 528ca22030
commit d2a6d4119b

View file

@ -158,9 +158,11 @@ withAffection AffectionConfig{..} = do
SDL.present (windowRenderer ad2) SDL.present (windowRenderer ad2)
-- save new time -- save new time
ad3 <- get ad3 <- get
put ad3 when (sysTime ad == sysTime ad3) (
{ sysTime = now put ad3
} { sysTime = now
}
)
) )
) initContainer ) initContainer
G.gegl_exit G.gegl_exit