eventloop 0.4.1.0 → 0.4.1.1

raw patch · 3 files changed

+6/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• eventloop.cabal +1/−1
• src/Eventloop/EventloopCore.hs +4/−1
• src/Eventloop/Module/BasicShapes/Types.hs +1/−1

@@ -6,7 +6,7 @@ -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.4.1.0
+version:             0.4.1.1
 synopsis:            A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
 description:         A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
                      Each module exists of a initialize and teardown function that are both called once at startup and shutting down. During run-time, a module can provice a preprocessor function (which transforms input events before they get to the eventloop),

@@ -6,6 +6,7 @@ 
 import Data.Maybe
 import Control.Exception
+import Control.Concurrent
 
 type HasToStop = Bool
 type PhaseDescription = [Char]
@@ -116,7 +117,9 @@                                         (moduleConfig:mcs) = moduleConfigurations eventloopConfig
                                         eventRetrieverM = eventRetriever moduleConfig
                                         sharedIO = sharedIOState eventloopConfig
-                                        checkNextModule sio mc = receiveEvents (eventloopConfig {moduleConfigurations=(mcs++[mc]), sharedIOState=sio})
+                                        checkNextModule sio mc = do
+                                                                    threadDelay 100000
+                                                                    receiveEvents (eventloopConfig {moduleConfigurations=(mcs++[mc]), sharedIOState=sio})
                                     case eventRetrieverM of
                                         Nothing -> checkNextModule sharedIO moduleConfig
                                         Just er -> handle

@@ -68,7 +68,7 @@                       , fontSize :: FontSize
                       , translation :: Translation
                       , fillColor :: FillColor
-                      } -- ^Translation is center, does not have a boundingbox due to technical limitations
+                      } -- ^Translation is horizontally the center and vertically the top of the text, does not have a boundingbox due to technical limitations
                | Line { point1 :: Point
                       , point2 :: Point 
                       }