module Control.AutoUpdate.Types where
data UpdateSettings a = UpdateSettings
{ forall a. UpdateSettings a -> Int
updateFreq :: Int
, forall a. UpdateSettings a -> Int
updateSpawnThreshold :: Int
, forall a. UpdateSettings a -> IO a
updateAction :: IO a
, forall a. UpdateSettings a -> String
updateThreadName :: String
}
defaultUpdateSettings :: UpdateSettings ()
defaultUpdateSettings :: UpdateSettings ()
defaultUpdateSettings =
UpdateSettings
{ updateFreq :: Int
updateFreq = Int
1000000
, updateSpawnThreshold :: Int
updateSpawnThreshold = Int
3
, updateAction :: IO ()
updateAction = () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
, updateThreadName :: String
updateThreadName = String
"AutoUpdate"
}