diff --git a/src/MyWebLog.Data/RethinkDbData.fs b/src/MyWebLog.Data/RethinkDbData.fs index 6f28370..20b48ce 100644 --- a/src/MyWebLog.Data/RethinkDbData.fs +++ b/src/MyWebLog.Data/RethinkDbData.fs @@ -572,7 +572,7 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger row[nameof Page.Empty.Title].Downcase()) skip ((pageNbr - 1) * 25) - limit 25 + limit 26 result; withRetryDefault conn } diff --git a/src/MyWebLog/Views/Page.fs b/src/MyWebLog/Views/Page.fs index df39882..6e56e90 100644 --- a/src/MyWebLog/Views/Page.fs +++ b/src/MyWebLog/Views/Page.fs @@ -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}"