[docs download] fix CSV return value

src/Gargantext/API/Client.hs

@@ -360,7 +360,8 @@ waitDocumentNgramsTableAsyncJob :: Token -> DocId -> JobID 'Unsafe -> ClientM (J
 
 -- document export API
 getDocumentExportJSON :: Token -> DocId -> ClientM DocumentExport.DocumentExport
-getDocumentExportCSV :: Token -> DocId -> ClientM [DocumentExport.Document]
+getDocumentExportCSV :: Token -> DocId -> ClientM Text
+--getDocumentExportCSV :: Token -> DocId -> ClientM [DocumentExport.Document]
 
 -- count api
 postCountQuery :: Token -> Query -> ClientM Counts

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

@@ -11,6 +11,8 @@ Portability : POSIX
 module Gargantext.API.Node.Document.Export
   where
 
+import qualified Data.ByteString.Lazy.Char8 as BSC
+import Data.Csv (encodeDefaultOrderedByName)
 import qualified Data.Text as T
 import Data.Version (showVersion)
 import Gargantext.API.Node.Document.Export.Types
@@ -66,9 +68,10 @@ getDocumentsJSON uId pId = do
 
 getDocumentsCSV :: UserId
                 -> DocId
-                -> GargNoServer [Document]
+                -> GargNoServer T.Text -- [Document]
 getDocumentsCSV uId pId = do
   DocumentExport { _de_documents } <- getDocumentsJSON uId pId
 
-  pure $ _de_documents
+  pure $ T.pack $ BSC.unpack $ encodeDefaultOrderedByName _de_documents
+
 

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

@@ -16,11 +16,13 @@ module Gargantext.API.Node.Document.Export.Types where
 import Data.Aeson.TH (deriveJSON)
 import Data.Csv (DefaultOrdered(..), ToNamedRecord(..), (.=), header, namedRecord)
 import Data.Swagger
+--import qualified Data.Text as T
+import qualified Data.Text.Encoding as TE
 import Gargantext.Core.Types
 import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixSwagger)
 import Gargantext.Database.Admin.Types.Hyperdata (HyperdataDocument(..))
 import Gargantext.Database.Schema.Node (NodePoly(..))
-import Gargantext.Utils.Servant (CSV)
+--import Gargantext.Utils.Servant (CSV)
 import Protolude
 --import Protolude.Partial (read)
 import Servant
@@ -41,12 +43,23 @@ data Document =
 --instance Read Document where
 --  read "" = panic "not implemented"
 instance DefaultOrdered Document where
-  headerOrder _ = header ["id", "name"]
+  headerOrder _ = header ["Publication Day"
+                         , "Publication Month"
+                         , "Publication Year"
+                         , "Authors"
+                         , "Title"
+                         , "Source"
+                         , "Abstract"]
 instance ToNamedRecord Document where
   toNamedRecord (Document { _d_document = Node { .. }}) =
     namedRecord
-    [ "id" .= _node_id
-    , "name" .= _node_name ]
+    [ "Publication Day" .= _hd_publication_day _node_hyperdata
+    , "Publication Month" .= _hd_publication_month _node_hyperdata
+    , "Publication Year" .= _hd_publication_year _node_hyperdata
+    , "Authors" .= _hd_authors _node_hyperdata
+    , "Title" .= _hd_title _node_hyperdata
+    , "Source" .= (TE.encodeUtf8 <$> _hd_source _node_hyperdata)
+    , "Abstract" .= (TE.encodeUtf8 <$> _hd_abstract _node_hyperdata) ]
 
 data Ngrams =
   Ngrams { _ng_ngrams :: [Text]
@@ -79,7 +92,7 @@ type API = Summary "Document Export"
             :> ( "json"
                :> Get '[JSON] DocumentExport
                :<|> "csv"
-               :> Get '[CSV] [Document])
+               :> Get '[PlainText] Text) -- [Document])
 
 $(deriveJSON (unPrefix "_de_") ''DocumentExport)
 $(deriveJSON (unPrefix "_d_") ''Document)

src/Gargantext/Core/Viz/Phylo/Legacy/LegacyAPI.hs

@@ -66,8 +66,8 @@ instance Show SVG where
 instance Accept SVG where
    contentType _ = "SVG" // "image/svg+xml" /: ("charset", "utf-8")
 
-instance Show a => MimeRender PlainText a where
-   mimeRender _ val = cs ("" <> show val)
+--instance Show a => MimeRender PlainText a where
+--   mimeRender _ val = cs ("" <> show val)
 
 instance MimeRender SVG SVG where
    mimeRender _ (SVG s) = DBL.fromStrict s