@@ -107,14 +107,14 @@ instance Exception Replaced
107107getCurrent :: UpdateSettings a
108108 -> IORef (Status a) -- ^ mutable state
109109 -> IO a
110−getCurrent us@UpdateSettings{..} istatus = do
110+getCurrent settings@UpdateSettings{..} istatus = do
111111 ea <- atomicModifyIORef' istatus increment
112112 case ea of
113113 Return a -> return a
114114 Manual -> updateAction
115115 Spawn -> do
116116 a <- updateAction
117− tid <- forkIO $ spawn us istatus
117+ tid <- forkIO $ spawn settings istatus
118118 join $ atomicModifyIORef' istatus $ turnToAuto a tid
119119 return a
120120 where