only update sysTime, when it had not changed

src/Affection.hs

@@ -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