Eu tenho um problema. Eu preciso que este código abaixo retorne uma quantidade específica de linhas (LimitTo), a partir de um número específico de resultados (OffsetBy). O código da aplicação que estou fazendo com este intuito é este:
getBuscR :: Int -> Handler Value
getBuscR pageNumber = do
let numberOfPages = 15
results <- runDB $ selectList [] [LimitTo numberOfPages, OffsetBy $ (pageNumber - 1) * numberOfpages]
sendStatusJSON ok200 (object ["answer" := results])
Eu fiz o código anterior com base nesse exemplo que está na documentação do yesod. Mas acredito que esteja desatualizado: (o livro não é atualizado desde 2011!). O exemplo do livro é este:
resultsForPage pageNumber = do
let resultsPerPage = 10
selectList
[ PersonAge >=. 18
]
[ Desc PersonAge
, Asc PersonLastName
, Asc PersonFirstName
, LimitTo resultsPerPage
, OffsetBy $ (pageNumber - 1) * resultsPerPage
]