diff options
Diffstat (limited to 'server/src/Thermoprint/Server/Push.hs')
| -rw-r--r-- | server/src/Thermoprint/Server/Push.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Thermoprint/Server/Push.hs b/server/src/Thermoprint/Server/Push.hs index 07b81fb..7ae03a6 100644 --- a/server/src/Thermoprint/Server/Push.hs +++ b/server/src/Thermoprint/Server/Push.hs | |||
| @@ -32,7 +32,7 @@ import qualified Data.Text as Text | |||
| 32 | type Notification = URI | 32 | type Notification = URI |
| 33 | 33 | ||
| 34 | withPush :: TChan Notification -> Application -> Application | 34 | withPush :: TChan Notification -> Application -> Application |
| 35 | withPush chan = websocketsOr defaultConnectionOptions $ flip acceptRequestWith (AcceptRequest $ Just protocolSpec) >=> handleClient chan | 35 | withPush chan = websocketsOr defaultConnectionOptions $ flip acceptRequestWith (AcceptRequest (Just protocolSpec) []) >=> handleClient chan |
| 36 | 36 | ||
| 37 | protocolSpec :: ByteString | 37 | protocolSpec :: ByteString |
| 38 | protocolSpec = CBS.pack $ "thermoprint-server.notification." ++ showVersion version | 38 | protocolSpec = CBS.pack $ "thermoprint-server.notification." ++ showVersion version |