fix(csv-export): mime confusion

src/Handler/Utils/Csv.hs

@@ -318,7 +318,9 @@ respondCsv :: ( ToNamedRecord csv
            -> Header
            -> ConduitT () csv Handler ()
            -> Handler TypedContent
-respondCsv sheetName hdr src = respondSource typeCsv' $ src .| void (encodeCsv sheetName hdr) .| awaitForever sendChunk
+respondCsv sheetName hdr src = do
+  cType <- expectedCsvContentType
+  respondSource cType $ src .| void (encodeCsv sheetName hdr) .| awaitForever sendChunk
 
 respondDefaultOrderedCsv :: forall csv msg.
                             ( ToNamedRecord csv
@@ -337,7 +339,9 @@ respondCsvDB :: ( ToNamedRecord csv
              -> Header
              -> ConduitT () csv DB ()
              -> Handler TypedContent
-respondCsvDB sheetName hdr src = respondSourceDB typeCsv' $ src .| void (encodeCsv sheetName hdr) .| awaitForever sendChunk
+respondCsvDB sheetName hdr src = do
+  cType <- expectedCsvContentType
+  respondSourceDB cType $ src .| void (encodeCsv sheetName hdr) .| awaitForever sendChunk
 
 respondDefaultOrderedCsvDB :: forall csv msg.
                               ( ToNamedRecord csv

src/Handler/Utils/Table/Pagination.hs

@@ -701,7 +701,9 @@ withCsvExtraRep sheetName exportData mEncode = maybe id (flip snoc) (csvExtraRep
       DBTCsvEncode{ dbtCsvNoExportData = (_ :: Maybe (AnIso' exportData' ())), .. } <- mEncode
       Refl <- eqT @exportData @exportData'
       return DBTExtraRepFor
-        { dbtERepContentType = typeCsv'
+        { dbtERepContentType = case fmt of
+            FormatCsv -> typeCsv'
+            FormatXlsx -> typeXlsx
         , dbtERepDoEncode = do
             csvRendered <- toCsvRendered <$> lift (dbtCsvHeader $ Just exportData) <*> (dbtCsvDoEncode exportData .| C.foldMap (pure @[]))
             encOpts <- csvOptionsForFormat fmt