c-mosquitto 0.1.5.0 → 0.1.6.0

raw patch · 3 files changed

+11/−4 lines, 3 files

Files

• app/Main.hs +2/−2
• c-mosquitto.cabal +2/−2
• src/Network/Mosquitto.hs +7/−0

@@ -49,7 +49,7 @@   M.onLog m $ const putStrLn   M.onConnect m $ \c -> do            print c-           M.subscribe m 0 "#"+--           M.subscribe m 0 "#"    M.onDisconnect m print   M.onSubscribe m $ curry print@@ -57,7 +57,7 @@   M.connect m server port keepAlive    forkIO $ forever $ do-    M.publish m False 0 "hello" "bla"+    -- M.publish m False 0 "hello" "bla"     threadDelay 5000000    M.loopForever m

@@ -1,5 +1,5 @@ name:                c-mosquitto-version:             0.1.5.0+version:             0.1.6.0 synopsis:            Simpe mosquito MQTT binding able to work with the Amazons IoT description:         Simpe mosquito MQTT binding                      able to work with the Amazons IoT but it should work with other providers@@ -8,7 +8,7 @@ license-file:        LICENSE author:              Marcin Tolysz maintainer:          tolysz@gmail.com-copyright:           2017(c) Marcin Tolysz+copyright:           2017-9(c) Marcin Tolysz category:            Library build-type:          Simple extra-source-files:  README.md

@@ -156,6 +156,13 @@                                 )              }|] +disconnect :: Mosquitto a -> IO Int+disconnect mosq =+  fmap fromIntegral <$> withPtr mosq $ \pMosq ->+       [C.exp|int{+               mosquitto_disconnect( $(struct mosquitto *pMosq) )+             }|]+ onSubscribe :: Mosquitto a -> OnSubscribe -> IO () onSubscribe mosq onSubscribe =  do   on_subscribe <- mkCOnSubscribe $ \_ _ mid (fromIntegral -> ii) iis ->