From 4f3e83a908b45a6dc400b5f6ecb04d5ac42ac4b4 Mon Sep 17 00:00:00 2001 From: Andrew Martin Date: Tue, 21 Nov 2017 09:48:06 -0500 Subject: [PATCH] make pagination show 1-based indexes pages to end user, even though it internally uses 0-based indexes --- reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs index e9479ba..afe7a4d 100644 --- a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs +++ b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs @@ -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 ())