Skip to main content
3 de 3
adicionou 205 caracteres ao conteúdo; tags editadas; título editado

Como implementar paginação em yesod?

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
        ]