mqtt 0.1.0.0 → 0.1.1.0

raw patch · 2 files changed

+4/−5 lines, 2 filesdep ~tlsdep ~websockets

Dependency ranges changed: tls, websockets

Files

• mqtt.cabal +3/−4
• src/Network/Stack/Server.hs +1/−1

@@ -3,7 +3,7 @@ description:   This project aims to supply a rock-solid MQTT implementation suitable for   production use.-version:             0.1.0.0+version:             0.1.1.0 license:             MIT license-file:        LICENSE author:              Lars Petersen@@ -41,16 +41,15 @@                        bytestring,                        clock,                        binary,-                       exceptions,                        text,                        containers,                        socket,-                       tls,+                       tls >= 1.3.9 && <1.4,                        uuid,                        case-insensitive,                        x509,                        x509-validation,-                       websockets,+                       websockets >= 0.10.0.0 && < 0.11,                        hslogger   hs-source-dirs:      src   default-language:    Haskell2010

@@ -244,7 +244,7 @@           writeSocket (Just bs) = void (sendStream connection (BSL.toStrict bs))       stream <- WS.makeStream readSocket writeSocket       pendingConnection <- WS.makePendingConnectionFromStream stream (WS.ConnectionOptions $ pure ())-      acceptedConnection <- WS.acceptRequestWith pendingConnection (WS.AcceptRequest $ Just "mqtt")+      acceptedConnection <- WS.acceptRequestWith pendingConnection (WS.AcceptRequest (Just "mqtt") [])       x <- handle         (WebSocketServerConnection connection acceptedConnection)         (WebSocketServerConnectionInfo info $ WS.pendingRequest pendingConnection)