creatur 5.7.3 → 5.8.0

raw patch · 2 files changed

+7/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ ALife.Creatur.Task: checkPopSize :: Universe u => (Int, Int) -> StateT u IO ()

- ALife.Creatur.Task: runInteractingAgents :: (Universe u, Serialize (Agent u)) => AgentsProgram u -> (Int, Int) -> StateT u IO () -> StateT u IO () -> StateT u IO ()

+ ALife.Creatur.Task: runInteractingAgents :: (Universe u, Serialize (Agent u)) => AgentsProgram u -> StateT u IO () -> StateT u IO () -> StateT u IO ()

- ALife.Creatur.Task: runNoninteractingAgents :: (Universe u, Serialize (Agent u)) => AgentProgram u -> (Int, Int) -> StateT u IO () -> StateT u IO () -> StateT u IO ()

+ ALife.Creatur.Task: runNoninteractingAgents :: (Universe u, Serialize (Agent u)) => AgentProgram u -> StateT u IO () -> StateT u IO () -> StateT u IO ()

Files

creatur.cabal +2/−2
src/ALife/Creatur/Task.hs +5/−6

creatur.cabal view

@@ -1,5 +1,5 @@ Name:              creatur-Version:           5.7.3+Version:           5.8.0 Stability:         experimental Synopsis:          Framework for artificial life experiments. Description:       A software framework for automating experiments@@ -36,7 +36,7 @@ source-repository this   type:     git   location: https://github.com/mhwombat/creatur.git-  tag:      5.7.3+  tag:      5.8.0  library   GHC-Options:      -Wall -fno-warn-orphans

src/ALife/Creatur/Task.hs view

@@ -28,6 +28,7 @@     startupHandler,     shutdownHandler,     exceptionHandler,+    checkPopSize,     requestShutdown  ) where @@ -64,9 +65,9 @@  runNoninteractingAgents   :: (Universe u, Serialize (Agent u))-    => AgentProgram u -> (Int, Int) -> StateT u IO () -> StateT u IO ()+    => AgentProgram u -> StateT u IO () -> StateT u IO ()       -> StateT u IO ()-runNoninteractingAgents agentProgram popRange startRoundProgram+runNoninteractingAgents agentProgram startRoundProgram     endRoundProgram = do   atStartOfRound startRoundProgram   as <- lineup@@ -76,7 +77,6 @@     -- do that first in case the next line triggers an exception     withAgent agentProgram a     atEndOfRound endRoundProgram-    checkPopSize popRange  --   The input parameter is a list of agents. The first agent in the --   list is the agent whose turn it is to use the CPU. The rest of@@ -89,9 +89,9 @@  runInteractingAgents   :: (Universe u, Serialize (Agent u))-    => AgentsProgram u -> (Int, Int) -> StateT u IO () -> StateT u IO ()+    => AgentsProgram u -> StateT u IO () -> StateT u IO ()       -> StateT u IO ()-runInteractingAgents agentsProgram popRange startRoundProgram+runInteractingAgents agentsProgram startRoundProgram     endRoundProgram = do   atStartOfRound startRoundProgram   as <- lineup@@ -99,7 +99,6 @@   -- do that first in case the next line triggers an exception   withAgents agentsProgram as   atEndOfRound endRoundProgram-  checkPopSize popRange  checkPopSize :: Universe u => (Int, Int) -> StateT u IO () checkPopSize (minAgents, maxAgents) = do