fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Gregor Kleen 2020-07-20 09:20:58 +02:00
parent cf412a4b54
commit e62d7a34e6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Utils/Table/Pagination.hs
View File

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