[FIX] API post with param.

src/Gargantext/API/Node.hs

@@ -399,11 +399,24 @@ getMetrics cId maybeListId tabType maybeLimit = do
 -------------------------------------------------------------
 type Hash = Text
 data FileType = CSV | PresseRIS
-  deriving (Eq, Show)
+  deriving (Eq, Show, Generic)
+
+instance ToSchema FileType
+instance Arbitrary FileType
+  where
+    arbitrary = elements [CSV, PresseRIS]
+instance ToParamSchema FileType
 
 instance ToParamSchema (MultipartData Mem) where
   toParamSchema _ = toParamSchema (Proxy :: Proxy TODO)
 
+instance FromHttpApiData FileType
+  where
+    parseUrlPiece "CSV"       = pure CSV
+    parseUrlPiece "PresseRis" = pure PresseRIS
+    parseUrlPiece _           = pure CSV -- TODO error here
+
+
 instance (ToParamSchema a, HasSwagger sub) =>
          HasSwagger (MultipartForm tag a :> sub) where
   -- TODO
@@ -424,9 +437,9 @@ type UploadAPI = Summary "Upload file(s) to a corpus"
 
 --postUpload :: NodeId -> Maybe FileType ->  GargServer UploadAPI
 --postUpload :: NodeId -> GargServer UploadAPI
-postUpload :: NodeId -> Maybe FileType -> MultipartData Mem -> Cmd err [Hash]
-postUpload _ Nothing _ = panic "fileType is a required parameter"
-postUpload _ (Just fileType) multipartData = do
+postUpload :: NodeId -> MultipartData Mem -> Maybe FileType -> Cmd err [Hash]
+postUpload _ _ Nothing = panic "fileType is a required parameter"
+postUpload _ multipartData (Just fileType) = do
   putStrLn $ "File Type: " <> (show fileType)
   is <- liftIO $ do
     putStrLn ("Inputs:" :: Text)