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
1 changed files with 5 additions and 3 deletions

View File

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