diff --git a/src/Affection.hs b/src/Affection.hs index fbec434..d4c2c5d 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -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