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 ())