I have a problemEu tenho um problema. I need this code to return a specified number of resultsEu preciso que este código abaixo retorne uma quantidade específica de linhas ( LimitToLimitTo) and beginning in, a certain number of rowpartir de um número específico de resultados (OffsetBy). The code isO 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])
I made the previous code following the example in theEu fiz o código anterior com base nesse exemplo que está na documentação do yesod book. 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
]