@@ -103,6 +103,9 @@ mkAutoUpdate (UpdateSettings !f !t !a) = do
103103
104104data Action a = Return a | Manual | Spawn
105105
106+data Replaced = Replaced deriving (Show, Typeable)
107+instance Exception Replaced
108+
106109-- | Get the current value, either fed from an auto-update thread, or
107110-- computed manually in the current thread.
108111--
@@ -149,7 +152,3 @@ getCurrent freq spawnThreshold action istatus = do
149152 AutoUpdated _ _ tid' | tid == tid' -> (ManualUpdates 0, ())
150153 _ -> (status, ())
151154 throwIO ex
152−
153−data Replaced = Replaced
154− deriving (Show, Typeable)
155−instance Exception Replaced