Improve export (tab and quote)

src/Gargantext/API/Node/Document/Export.hs

@@ -13,7 +13,7 @@ module Gargantext.API.Node.Document.Export
 
 import Control.Lens (view)
 import Data.ByteString.Lazy.Char8 qualified as BSC
-import Data.Csv (encodeDefaultOrderedByName)
+import Data.Csv (encodeDefaultOrderedByNameWith, defaultEncodeOptions, encDelimiter, encQuoting, Quoting(..))
 import Data.Text qualified as T
 import Data.Text.Encoding qualified as TE
 import Data.Time.Clock.System (getSystemTime, systemSeconds)
@@ -100,7 +100,7 @@ getDocumentsCSV :: NodeId
 getDocumentsCSV userNodeId pId = do
   dJSON <- getDocumentsJSON userNodeId pId
   let DocumentExport { _de_documents } = getResponse dJSON
-  let ret = TE.decodeUtf8 $ BSC.toStrict $ encodeDefaultOrderedByName _de_documents
+  let ret = TE.decodeUtf8 $ BSC.toStrict $ encodeDefaultOrderedByNameWith (defaultEncodeOptions {encDelimiter = fromIntegral $ ord '\t', encQuoting = QuoteAll }) _de_documents
 
   pure $ addHeader (T.concat [ "attachment; filename=GarganText_DocsList-"
                              , T.pack $ show pId