Skip to content

Commit

Permalink
fix(Connector): always return config in Connector (#1383)
Browse files Browse the repository at this point in the history
  • Loading branch information
s12f committed Apr 27, 2023
1 parent bbaa975 commit 8377177
Show file tree
Hide file tree
Showing 4 changed files with 6 additions and 11 deletions.
2 changes: 1 addition & 1 deletion external/protocol
Submodule protocol updated 1 files
+1 −2 hstream.proto
2 changes: 1 addition & 1 deletion hstream-io/HStream/IO/Meta.hs
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ createIOTaskMeta h taskName taskId taskInfo = do

listIOTaskMeta :: MetaHandle -> IO [API.Connector]
listIOTaskMeta h = do
map (convertTaskMeta False) . filter (\TaskMeta{..} -> taskStateMeta /= DELETED) <$> listMeta @TaskMeta h
map convertTaskMeta . filter (\TaskMeta{..} -> taskStateMeta /= DELETED) <$> listMeta @TaskMeta h

getIOTaskMeta :: MetaHandle -> T.Text -> IO (Maybe TaskMeta)
getIOTaskMeta h tid = getMeta tid h
Expand Down
11 changes: 3 additions & 8 deletions hstream-io/HStream/IO/Types.hs
Original file line number Diff line number Diff line change
Expand Up @@ -151,21 +151,16 @@ instance HasPath TaskIdMeta FHandle where
instance HasPath TaskKvMeta FHandle where
myRootPath = "ioTaskKvs"

convertTaskMeta :: Bool -> TaskMeta -> API.Connector
convertTaskMeta addConfig TaskMeta {..} =
convertTaskMeta :: TaskMeta -> API.Connector
convertTaskMeta TaskMeta {..} =
API.Connector
(taskName taskInfoMeta)
(ioTaskTypeToText . taskType $ taskInfoMeta)
(taskTarget taskInfoMeta)
(Just . taskCreatedTime $ taskInfoMeta)
(ioTaskStatusToText taskStateMeta)
cfg
(TL.toStrict . J.encodeToLazyText . J.lookup "connector" $ connectorConfig taskInfoMeta)
Vector.empty
where
Just connectorCfg = J.lookup "connector" $ connectorConfig taskInfoMeta
cfg = if addConfig
then TL.toStrict $ J.encodeToLazyText connectorCfg
else ""

ioTaskStatusToText :: IOTaskStatus -> T.Text
ioTaskStatusToText = T.pack . show
Expand Down
2 changes: 1 addition & 1 deletion hstream-io/HStream/IO/Worker.hs
Original file line number Diff line number Diff line change
Expand Up @@ -114,7 +114,7 @@ showIOTask_ worker@Worker{..} name = do
taskOffsets <- C.readMVar taskOffsetsM
M.getIOTaskMeta workerHandle taskId >>= \case
Nothing -> throwIO $ HE.ConnectorNotFound name
Just c -> return $ (convertTaskMeta True c) {API.connectorOffsets = taskOffsets}
Just c -> return $ (convertTaskMeta c) {API.connectorOffsets = taskOffsets}

listIOTasks :: Worker -> IO [API.Connector]
listIOTasks Worker{..} = M.listIOTaskMeta workerHandle
Expand Down

0 comments on commit 8377177

Please sign in to comment.