lifx-lan 0.4.0.1 → 0.5.0

raw patch · 2 files changed

+7/−15 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• lifx-lan.cabal +1/−1
• src/Lifx/Lan.hs +6/−14

@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               lifx-lan-version:            0.4.0.1+version:            0.5.0 license:            BSD-3-Clause license-file:       LICENSE author:             George Thomas

@@ -276,8 +276,7 @@         m (Map Device (NonEmpty b))     broadcastAndGetResult filter' maybeFinished msg = do         timeoutDuration <- getTimeout-        incrementCounter-        sendMessage' False (tupleToHostAddress (255, 255, 255, 255)) msg+        broadcast msg         t0 <- liftIO getCurrentTime         fmap (Map.mapKeysMonotonic Device) . flip execStateT Map.empty $ untilM do             t <- liftIO getCurrentTime@@ -307,7 +306,7 @@  instance MessageResult () where     getSendResult = const $ pure ()-    broadcastAndGetResult = const . const . const $ pure Map.empty+    broadcastAndGetResult = const $ const $ (Map.empty <$) . broadcast instance Response StateService where     expectedPacketType = 3     messageSize = 5@@ -657,14 +656,7 @@         . recvFrom sock         $ headerSize + size -{--post to forum-    https://community.lifx.com/c/developing-with-lifx/5-    link to lifx-manager https://community.lifx.com/c/developing-with-lifx/5-        screenshot-        explain user-unfriendliness-    diss Python-    diss app-        or maybe just echo in https://community.lifx.com/t/done-with-lifx-such-a-waste-of-time-and-money/7731/9---}+broadcast :: MonadLifx m => Message r -> m ()+broadcast msg = do+    incrementCounter+    sendMessage' False (tupleToHostAddress (255, 255, 255, 255)) msg