byteverse/colonnade
1
1
Fork 0
mirror of https://github.com/byteverse/colonnade.git synced 2024-09-11 06:45:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

make pagination show 1-based indexes pages to end user, even though it internally uses 0-based indexes

Browse Source
This commit is contained in:
Andrew Martin 2017-11-21 09:48:06 -05:00
parent add35c3fc1
commit 4f3e83a908
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
View File

@ -924,7 +924,7 @@ semUiFixedPagination maxPageCount extraClass pageCount = do
, M.singleton "class" " item "
]
) pageCount page
(pageEl, ()) <- elDynAttr' "a" attrs (text (T.pack (show i)))
(pageEl, ()) <- elDynAttr' "a" attrs (text (T.pack (show (i + 1))))
return (Position i <$ domEvent Click pageEl)
(fwdEl,()) <- elClass' "a" "icon item" $ do
elClass "i" "right chevron icon" (return ())