From e62d7a34e68b79ae52450dcd9e1c5814933d33d1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Mon, 20 Jul 2020 09:20:58 +0200
Subject: [PATCH] feat(csv): don't limit number of exported rows

---
 src/Handler/Utils/Table/Pagination.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs
index de94f9949..9a22aab88 100644
--- a/src/Handler/Utils/Table/Pagination.hs
+++ b/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 ()