kafka-device 1.0.2.0 → 1.0.2.1

raw patch · 3 files changed

+6/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• default.nix +1/−1
• kafka-device.cabal +1/−1
• src/Network/UI/Kafka.hs +4/−2

@@ -5,7 +5,7 @@  mkDerivation {   pname = "kafka-device";-  version = "1.0.2.0";+  version = "1.0.2.1";   src = ./.;   isLibrary = true;   isExecutable = true;

@@ -1,5 +1,5 @@ name         : kafka-device-version      : 1.0.2.0+version      : 1.0.2.1 synopsis     : UI device events via a Kafka message broker description  : This package contains functions for passing UI device events to topics on a Kafka message broker \<<https://kafka.apache.org/>\>.  Also see \<<https://hackage.haskell.org/package/kafka-device-joystick/>\>, \<<https://hackage.haskell.org/package/kafka-device-glut/>\>, \<<https://hackage.haskell.org/package/kafka-device-spacenav/>\>, \<<https://hackage.haskell.org/package/kafka-device-leap/>\>. license      : MIT

@@ -33,7 +33,7 @@   import Control.Arrow ((***))-import Control.Concurrent (MVar, newEmptyMVar, isEmptyMVar, threadDelay, tryPutMVar)+import Control.Concurrent (MVar, newEmptyMVar, isEmptyMVar, threadDelay, tryPutMVar, yield) import Control.Monad (void, when) import Control.Monad.Except (liftIO) import Data.Aeson.Types (FromJSON, ToJSON)@@ -167,7 +167,9 @@               (TopicAndMessage (fromString topic) . toMessage)               events           running <- liftIO $ isEmptyMVar exitFlag-          when (running && not (null events))+          when (null events)+            $ liftIO yield+          when running             loop     return       (