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,10 +158,12 @@ withAffection AffectionConfig{..} = do
SDL.present (windowRenderer ad2)
-- save new time
ad3 <- get
when (sysTime ad == sysTime ad3) (
put ad3
{ sysTime = now
}
)
)
) initContainer
G.gegl_exit
cleanUp $ userState nState