diff options
Diffstat (limited to 'Omni/Jr/Web/Handlers.hs')
| -rw-r--r-- | Omni/Jr/Web/Handlers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Omni/Jr/Web/Handlers.hs b/Omni/Jr/Web/Handlers.hs index 463c9f7..da8a2e6 100644 --- a/Omni/Jr/Web/Handlers.hs +++ b/Omni/Jr/Web/Handlers.hs @@ -435,7 +435,7 @@ server = let isInProgress = case TaskCore.findTask tid tasks of Nothing -> False Just task -> TaskCore.taskStatus task == TaskCore.InProgress - pure (AgentEventsPartial events isInProgress now) + pure (AgentEventsPartial tid events isInProgress now) taskEventsStreamHandler :: Text -> Servant.Handler (SourceIO ByteString) taskEventsStreamHandler tid = do |