@@ -117,8 +117,8 @@ getCurrent settings@UpdateSettings{..} istatus = do
117117 join $ atomicModifyIORef' istatus $ turnToAuto a tid
118118 return a
119119 where
120− increment (AutoUpdated a cnt tid) = (AutoUpdated a (succ cnt) tid, Return a)
121− increment (ManualUpdates i) = (ManualUpdates (succ i), act)
120+ increment (AutoUpdated a cnt tid) = (AutoUpdated a (cnt + 1) tid, Return a)
121+ increment (ManualUpdates i) = (ManualUpdates (i + 1), act)
122122 where
123123 act = if i > updateSpawnThreshold then Spawn else Manual
124124