feat(csv): don't limit number of exported rows

src/Handler/Utils/Table/Pagination.hs

@@ -393,6 +393,8 @@ data DBCsvMode
   | DBCsvExportExample
   | DBCsvAbort
 
+makePrisms ''DBCsvMode
+  
 data DBCsvDiff r' csv k'
   = DBCsvDiffNew
     { dbCsvNewKey :: Maybe k'
@@ -1034,7 +1036,8 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
             | PagesizeLimit l <- psLimit'
             , selectPagesize
               -> do
-                E.limit l
+                unless (has (_FormSuccess . _DBCsvExport) csvMode) $
+                  E.limit l
                 E.offset (psPage * l)
           Just ps -> E.where_ $ dbtRowKey t `E.sqlIn` ps
           _other  -> return ()