getRootR :: Handler Html
getRootR = do
    -- unneeded return here to match README
    things' <- return [1..1142]

    (things, widget) <- paginate 3 things'
    
    defaultLayout $ do
        setTitle "My title"
        [whamlet|$newline never
            <h1>Pagination
            <p>The things:
            <ul>
                $forall thing <- things
                    <li>Thing #{show thing}

            <div .pagination>
                ^{widget}
            |]
getRootR :: Handler Html
getRootR = do
    -- unneeded return here to match README
    things' <- return [1..1142]

    (things, widget) <- paginate 3 things'
    
    defaultLayout $ do
        setTitle "My title"
        [whamlet|$newline never
            <h1>Pagination
            <p>The things:
            <ul>
                $forall thing <- things
                    <li>Thing #{show thing}

            <div .pagination>
                ^{widget}
            |]
getRootR = do
    -- unneeded return here to match README
    things' <- return [1..1142]

    (things, widget) <- paginate 3 things'
    
    defaultLayout $ do
        setTitle "My title"
        [whamlet|$newline never
            <h1>Pagination
            <p>The things:
            <ul>
                $forall thing <- things
                    <li>Thing #{show thing}

            <div .pagination>
                ^{widget}
            |]