creatur 4.3.2 → 4.3.3

raw patch · 3 files changed

+10/−9 lines, 3 files

Files

• creatur.cabal +1/−1
• src/ALife/Creatur/Daemon.hs +4/−3
• src/ALife/Creatur/Universe/Task.hs +5/−5

@@ -1,5 +1,5 @@ Name:              creatur-Version:           4.3.2+Version:           4.3.3 Stability:         experimental Synopsis:          Framework for artificial life experiments. Description:       A software framework for automating experiments

@@ -40,14 +40,15 @@     onStartup :: s -> IO s,     onShutdown :: s -> IO (),     onException :: s -> SomeException -> IO s,+    -- | The agent task.     task :: StateT s IO (),     username :: String,+    -- | Number of microseconds to sleep between agent tasks.     sleepTime :: Int   } --- | @'launch' username sleepTime state task@ creates a daemon---   running as @username@, which invokes @task@ repeatedly, sleeping ---   for @sleepTime@ microseconds between invocations of @task@.+-- | @'launch' daemon state@ creates a daemon running under the current+--   user's real userID, which invokes @task@. launch :: Daemon s -> s -> IO () launch d s = do   uid <- getRealUserID

@@ -50,10 +50,10 @@ import Data.Maybe (catMaybes) import Data.Serialize (Serialize) -simpleDaemon :: Logger u => Daemon u-simpleDaemon = Daemon+simpleDaemon :: Logger u => String -> Daemon u+simpleDaemon version = Daemon   {-    onStartup = startupHandler,+    onStartup = startupHandler version,     onShutdown = shutdownHandler,     onException = exceptionHandler,     task = undefined,@@ -61,8 +61,8 @@     sleepTime = 100000   } -startupHandler :: Logger u => u -> IO u-startupHandler = execStateT (writeToLog "Starting")+startupHandler :: Logger u => String -> u -> IO u+startupHandler version = execStateT (writeToLog $ "Starting " ++ version)  shutdownHandler :: Logger u => u -> IO () shutdownHandler u = do