+updateState (FromServerMess SProgress req) = case req ^. params . value of
+ Begin _ ->
+ modify $ \s -> s { curProgressSessions = Set.insert (req ^. params . token) $ curProgressSessions s }
+ End _ ->
+ modify $ \s -> s { curProgressSessions = Set.delete (req ^. params . token) $ curProgressSessions s }
+ _ -> pure ()