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)
-- save new time
ad3 <- get
put ad3
{ sysTime = now
}
when (sysTime ad == sysTime ad3) (
put ad3
{ sysTime = now
}
)
)
) initContainer
G.gegl_exit