diff options
Diffstat (limited to 'Server.hs')
-rw-r--r-- | Server.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -7,7 +7,6 @@ import CmdLine import WebSockets import SessionID import Log -import PrevActivity import Network.Wai import Network.Wai.Handler.Warp @@ -145,7 +144,7 @@ user o ssv conn = withSessionID (serverDirectory o) $ \(loghv, sid) -> do -- (The user is allowed to send Developer messages too.. perhaps -- they got them from a developer connected to them some other -- way.) - relayfromuser mytid session = relayFromSocket conn noRecentActivity (return ()) $ \msg -> do + relayfromuser mytid session = relayFromSocket conn $ \msg -> do l <- mkLog msg <$> getPOSIXTime writeSession mytid session l @@ -184,7 +183,7 @@ developer o ssv sid conn = bracket setup cleanup go -- Relay all Developer amessages from the developer's websocket -- to the broadcast channel. - relayfromdeveloper mytid session = relayFromSocket conn noRecentActivity (return ()) + relayfromdeveloper mytid session = relayFromSocket conn $ \msg -> case msg of Developer _ -> do l <- mkLog msg <$> getPOSIXTime |