diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-07 14:16:21 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-07 14:16:21 +0100 |
| commit | 7065a8cc1b8b01cd32d4b1d5317b323fec5238bd (patch) | |
| tree | d6608f463b066aa6caf33357fd9ae0e508e49084 /server/src/Thermoprint/Server/Push.hs | |
| parent | 75d9fe614dca572aa1d7cfa53553e9c103eb2dd0 (diff) | |
| download | thermoprint-7065a8cc1b8b01cd32d4b1d5317b323fec5238bd.tar thermoprint-7065a8cc1b8b01cd32d4b1d5317b323fec5238bd.tar.gz thermoprint-7065a8cc1b8b01cd32d4b1d5317b323fec5238bd.tar.bz2 thermoprint-7065a8cc1b8b01cd32d4b1d5317b323fec5238bd.tar.xz thermoprint-7065a8cc1b8b01cd32d4b1d5317b323fec5238bd.zip | |
Bump versions
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 |