[API] Upload csv.

package.yaml

@@ -162,6 +162,7 @@ library:
   - servant-swagger
   - servant-swagger-ui
   - servant-static-th
+  - servant-cassava
   - serialise
   - split
   - stemmer

src/Gargantext/API/Upload.hs

@@ -25,17 +25,20 @@ Portability : POSIX
 module Gargantext.API.Upload
   where
 
-
+import qualified Data.Text as Text
+import GHC.Generics (Generic)
 import Gargantext.Prelude
 import Data.Text (Text)
+import Data.Aeson
 import Servant
 import Servant.Multipart
 --import Servant.Mock (HasMock(mock))
 import Servant.Swagger (HasSwagger(toSwagger))
-import qualified Data.ByteString.Lazy as LBS
+-- import qualified Data.ByteString.Lazy as LBS
 import Control.Monad
 import Control.Monad.IO.Class
 import Gargantext.API.Types
+import Servant.CSV.Cassava (CSV'(..))
 --import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
 --import Data.Swagger
 --import Gargantext.API.Ngrams (TODO)
@@ -67,22 +70,35 @@ instance HasMock (MultipartForm Mem (MultipartData Mem) :> sub) context where
   mock _ _ = undefined
 -}
 
-type ApiUpload = MultipartForm Mem (MultipartData Mem) :> Post '[JSON] Integer
+data Upload = Upload { up :: [Text] }
+  deriving (Generic)
+
+instance ToJSON Upload
+
+type ApiUpload = MultipartForm Mem (MultipartData Mem) :> Post '[JSON] Text
 -- MultipartData consists in textual inputs,
 -- accessible through its "inputs" field, as well
 -- as files, accessible through its "files" field.
 upload :: GargServer ApiUpload
 upload multipartData = do
-  liftIO $ do
+
+--{-
+  is <- liftIO $ do
     putStrLn ("Inputs:" :: Text)
-    forM_ (inputs multipartData) $ \input ->
-      putStrLn $ ("  " :: Text) <> (iName input)
-            <> (" -> " :: Text) <> (iValue input)
+    forM (inputs multipartData) $ \input -> do
+      putStrLn $ ("iName  " :: Text) <> (iName input)
+            <> ("iValue " :: Text) <> (iValue input)
+      pure $ iName input
 
-    forM_ (files multipartData) $ \file -> do
+--{-
+  _ <- forM (files multipartData) $ \file -> do
     let content = fdPayload file
-      putStrLn $ ("Content of " :: Text) <> (fdFileName file)
-      LBS.putStr content
-  return 0
+    putStrLn $ ("XXX " :: Text) <> (fdFileName file)
+    putStrLn $ ("YYY " :: Text) <>  cs content
+    --pure $ cs content
+  -- is <- inputs multipartData
+--}
+
+  pure $ Text.concat $ map cs is
 -------------------------------------------------------------------------------
 

src/Gargantext/Text/Parsers/CSV.hs

@@ -19,7 +19,6 @@ module Gargantext.Text.Parsers.CSV where
 
 import GHC.Real (round)
 import GHC.IO (FilePath)
-
 import Control.Applicative
 
 import Data.Char (ord)
@@ -232,6 +231,10 @@ writeCsv fp (h, vs) = BL.writeFile fp $
 writeDocs2Csv :: FilePath -> [HyperdataDocument] -> IO ()
 writeDocs2Csv fp hs = BL.writeFile fp $
                     encodeByNameWith csvEncodeOptions headerCsvGargV3 (map hyperdataDocument2csvDoc hs)
+
+hyperdataDocument2csv :: [HyperdataDocument] -> BL.ByteString
+hyperdataDocument2csv hs = encodeByNameWith csvEncodeOptions headerCsvGargV3 (map hyperdataDocument2csvDoc hs)
+
 ------------------------------------------------------------------------
 -- Hal Format
 data CsvHal = CsvHal