From d2a6d4119b360c742981d36e9b54d2b70ad348d0 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 29 Jul 2017 16:31:48 +0200 Subject: [PATCH] only update sysTime, when it had not changed --- src/Affection.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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