aivika 5.9 → 5.9.1

raw patch · 6 files changed

+9/−9 lines, 6 filesdep ~mwc-randomPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: mwc-random

API changes (from Hackage documentation)

Files

• Simulation/Aivika/Agent.hs +1/−1
• Simulation/Aivika/DoubleLinkedList.hs +2/−2
• Simulation/Aivika/Generator.hs +1/−1
• Simulation/Aivika/Internal/Cont.hs +1/−1
• Simulation/Aivika/Stream.hs +2/−2
• aivika.cabal +2/−2

@@ -211,7 +211,7 @@          "Use the setStateTransition function to define " ++          "the transition state: activateState."        ProcessingMode ->-         do x0 @ (Just st0) <- readIORef (agentStateRef agent)+         do x0@(Just st0) <- readIORef (agentStateRef agent)             invokeEvent p $ traversePath x0 st  -- | Set the activation computation for the specified state.

@@ -201,10 +201,10 @@                              (Nothing, Nothing) ->                                do writeIORef (listHead x) Nothing                                   writeIORef (listTail x) Nothing-                             (Nothing, head' @ (Just item')) ->+                             (Nothing, head'@(Just item')) ->                                do writeIORef (itemPrev item') Nothing                                   writeIORef (listHead x) head'-                             (tail' @ (Just item'), Nothing) ->+                             (tail'@(Just item'), Nothing) ->                                do writeIORef (itemNext item') Nothing                                   writeIORef (listTail x) tail'                              (Just prev', Just next') ->

@@ -318,7 +318,7 @@ newGenerator tp =   case tp of     SimpleGenerator ->-      MWC.uniform <$> MWC.withSystemRandom (return :: MWC.GenIO -> IO MWC.GenIO) >>= newRandomGenerator01+      MWC.uniform <$> MWC.createSystemRandom >>= newRandomGenerator01     SimpleGeneratorWithSeed x ->       MWC.uniform <$> MWC.initialize (singleton x) >>= newRandomGenerator01     CustomGenerator g ->

@@ -777,7 +777,7 @@           writeIORef rc Nothing           case c of             Nothing -> return Nothing-            z @ (Just c) ->+            z@(Just c) ->               do f <- invokeEvent p $                       contPreemptionBegun $                       contId $ contAux c

@@ -289,7 +289,7 @@  -- | Replace the 'Left' values. replaceLeftStream :: Stream (Either a b) -> Stream c -> Stream (Either c b)-replaceLeftStream (Cons sab) (ys0 @ ~(Cons sc)) = Cons z where+replaceLeftStream (Cons sab) (ys0@(Cons sc)) = Cons z where   z = do (a, xs) <- sab          case a of            Left _ ->@@ -300,7 +300,7 @@  -- | Replace the 'Right' values. replaceRightStream :: Stream (Either a b) -> Stream c -> Stream (Either a c)-replaceRightStream (Cons sab) (ys0 @ ~(Cons sc)) = Cons z where+replaceRightStream (Cons sab) (ys0@(Cons sc)) = Cons z where   z = do (a, xs) <- sab          case a of            Right _ ->

@@ -1,5 +1,5 @@ name:            aivika-version:         5.9+version:         5.9.1 synopsis:        A multi-method simulation library description:     Aivika is a discrete event simulation (DES) framework with support of activity-oriented,@@ -235,7 +235,7 @@                      array >= 0.3.0.0,                      containers >= 0.4.0.0,                      random >= 1.0.0.3,-                     mwc-random >= 0.13.0.0,+                     mwc-random >= 0.13.1.0,                      vector >= 0.10.0.1,                      deepseq >= 1.1.0.0,                      binary >= 0.6.4.0,