diff --git a/inferno-ml-server-types/src/Inferno/ML/Server/Client.hs b/inferno-ml-server-types/src/Inferno/ML/Server/Client.hs index 718e151..39ed5ab 100644 --- a/inferno-ml-server-types/src/Inferno/ML/Server/Client.hs +++ b/inferno-ml-server-types/src/Inferno/ML/Server/Client.hs @@ -19,12 +19,16 @@ import Servant.Client.Streaming (ClientM, client) -- | Get the status of the server. @Nothing@ indicates that an inference job -- is being evaluated. @Just ()@ means the server is idle statusC :: ClientM (Maybe ()) + -- | Run an inference parameter inferenceC :: Id (InferenceParam uid gid p s) -> Maybe Int64 -> ClientM () + -- | Cancel the existing inference job, if it exists cancelC :: ClientM () + -- | Register the information required to communicate with the bridge server registerBridgeC :: BridgeInfo -> ClientM () + -- | Check if any bridge information has been previously registered with this -- server instance checkBridgeC :: ClientM (Maybe BridgeInfo) diff --git a/inferno-ml-server-types/src/Inferno/ML/Server/Client/Bridge.hs b/inferno-ml-server-types/src/Inferno/ML/Server/Client/Bridge.hs index 3eba75a..a0640bb 100644 --- a/inferno-ml-server-types/src/Inferno/ML/Server/Client/Bridge.hs +++ b/inferno-ml-server-types/src/Inferno/ML/Server/Client/Bridge.hs @@ -22,6 +22,7 @@ writePairsC :: p -> PairStream t IO -> ClientM () + -- | Get the value at the given time via the bridge, for the given entity @p@ valueAtC :: ( ToJSON t, @@ -32,6 +33,7 @@ valueAtC :: p -> t -> ClientM IValue + -- | Get the latest value and the time latestValueAndTimeBeforeC :: ( ToJSON t,