only update sysTime, when it had not changed

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