21 lines
469 B
Haskell
21 lines
469 B
Haskell
module DataClient
|
|
( fetchLatest
|
|
)
|
|
where
|
|
|
|
import Common.Network.ClientTypes (Model (..))
|
|
import Common.Network.HttpClient
|
|
( post
|
|
, HttpError
|
|
)
|
|
|
|
fetchLatest :: Model -> UTCTime -> IO IO (Either HttpError [ CatalogPost ])
|
|
fetchLatest m t iface = do
|
|
post settings "/rpc/fetch_catalog" payload False >>= return . eitherDecodeResponse
|
|
|
|
where
|
|
payload = encode FetchCatalogArgs
|
|
{ max_time = t
|
|
, max_row_read = fetchCount m
|
|
}
|