yesod-pagination

(yesod-paginate is taken)

This package makes it pretty simple to paginate records.

You'll probably want to use the function paginateWith, which takes an esqueleto query and gives you Handler (Page r). The returned Page object might have next page and previous page links (pre-rendered).

The most trivial example of an esqueleto query is return (paginate is basically paginateWith return). This one is a bit less trivial.

import Import
import Yesod.Paginate

getMessagesR :: Handler Html
getMessagesR = do
    myMessages <- paginateWith $ \msg -> do
        orderBy [asc (msg ^. MsgCreatedAt)]
        return msg

    defaultLayout $(widgetFile "message-list")

For a lesson on how to write esqueleto queries, see the haddocks.