haskell/colonnade
1
0
Fork 1
mirror of https://github.com/byteverse/colonnade.git synced 2026-04-22 07:57:44 +02:00
Code Issues Actions 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 " , M.singleton "class" " item "
] ]
) pageCount page ) 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) return (Position i <$ domEvent Click pageEl)
(fwdEl,()) <- elClass' "a" "icon item" $ do (fwdEl,()) <- elClass' "a" "icon item" $ do
elClass "i" "right chevron icon" (return ()) elClass "i" "right chevron icon" (return ())