-- TODO generalize?

withThriftChannelsForRead :: Config -> (Channels -> IO result) -> IO result
withThriftChannelsForRead = withThriftChannels T.tClose
withThriftChannelsForRead :: Config -> (Channels -> IO result) -> IO result
withThriftChannelsForRead = withThriftChannels T.tClose
withThriftChannelsForRead = withThriftChannels T.tClose