diff options
Diffstat (limited to 'server/src/Thermoprint/Server')
| -rw-r--r-- | server/src/Thermoprint/Server/Push.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/server/src/Thermoprint/Server/Push.hs b/server/src/Thermoprint/Server/Push.hs index b2eca6b..07b81fb 100644 --- a/server/src/Thermoprint/Server/Push.hs +++ b/server/src/Thermoprint/Server/Push.hs | |||
| @@ -40,6 +40,7 @@ protocolSpec = CBS.pack $ "thermoprint-server.notification." ++ showVersion vers | |||
| 40 | handleClient :: TChan Notification -> Connection -> IO () | 40 | handleClient :: TChan Notification -> Connection -> IO () |
| 41 | handleClient chan conn = do | 41 | handleClient chan conn = do |
| 42 | cChan <- atomically $ dupTChan chan | 42 | cChan <- atomically $ dupTChan chan |
| 43 | forkPingThread conn 10 | ||
| 43 | forever . void $ atomically (readTChan cChan) >>= sendTextData conn . packNotification | 44 | forever . void $ atomically (readTChan cChan) >>= sendTextData conn . packNotification |
| 44 | 45 | ||
| 45 | packNotification :: Notification -> Text | 46 | packNotification :: Notification -> Text |