Fix page pagination on RethinkDB
This commit is contained in:
@@ -83,7 +83,7 @@ let pageList (pages: DisplayPage list) pageNbr hasNext app = [
|
||||
]
|
||||
if pageNbr > 1 || hasNext then
|
||||
let aAttrs link = [ _href (relUrl app link); _hxBoost; _class "btn btn-secondary" ]
|
||||
div [ _class "d-flex justify-content-evenly mb-3" ] [
|
||||
div [ _class "d-flex justify-content-evenly mb-3 mt-3" ] [
|
||||
div [] [
|
||||
if pageNbr > 1 then
|
||||
let prevPage = if pageNbr = 2 then "" else $"/page/{pageNbr - 1}"
|
||||
|
||||
Reference in New Issue
Block a user