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 reset to zero when the rows change

Browse Source
This commit is contained in:
Andrew Martin 2017-10-26 12:31:07 -04:00
parent 0427fd82e2
commit c01dce8eb2
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

@ -826,7 +826,7 @@ semUiFixedPagination maxPageCount extraClass pageCount = do
(fwdEl,()) <- elClass' "a" "icon item" $ do
elClass "i" "right chevron icon" (return ())
let fwd = Forward <$ domEvent Click fwdEl
let moveEv = leftmost (fwd : bck : posList)
let moveEv = leftmost (fwd : bck : (Position 0 <$ updated pageCount) : posList)
page <- foldDynM (\move oldPage -> case move of
Backward -> return (max 0 (oldPage - 1))
Forward -> do