[TOOLING] sql queries to remove unused documents and ngrams from database. Usage...
[gargantext.git] / src / Gargantext / API / Node / Corpus / New / File.hs
index 3b5dc8b0ce356850316d99695de663d70e62e0ad..bf1a8373e539ab8286b840d21a775fc916e993ea 100644 (file)
@@ -33,7 +33,7 @@ import Servant.Swagger.Internal
 import Test.QuickCheck (elements)
 import Test.QuickCheck.Arbitrary (Arbitrary, arbitrary)
 
-import Gargantext.API.Ngrams (TODO)
+import Gargantext.Core.Types (TODO)
 import Gargantext.Database.Admin.Types.Node
 import Gargantext.Database.Prelude -- (Cmd, CmdM)
 import Gargantext.Prelude
@@ -45,24 +45,25 @@ data FileType = CSV
               | CSV_HAL
               | PresseRIS
               | WOS
+              | ZIP
   deriving (Eq, Show, Generic)
 
 instance ToSchema FileType
-instance Arbitrary FileType
-  where
-    arbitrary = elements [CSV, PresseRIS]
+instance Arbitrary FileType where arbitrary = elements [CSV, PresseRIS]
 instance ToParamSchema FileType
 
 instance FromJSON FileType
+instance ToJSON FileType
 
-instance ToParamSchema (MultipartData Mem) where
-  toParamSchema _ = toParamSchema (Proxy :: Proxy TODO)
+instance ToParamSchema (MultipartData Mem) where toParamSchema _ = toParamSchema (Proxy :: Proxy TODO)
 
 instance FromHttpApiData FileType
   where
     parseUrlPiece "CSV"       = pure CSV
     parseUrlPiece "CSV_HAL"   = pure CSV_HAL
     parseUrlPiece "PresseRis" = pure PresseRIS
+    parseUrlPiece "ZIP"       = pure ZIP
+    parseUrlPiece "WOS"       = pure WOS
     parseUrlPiece _           = pure CSV -- TODO error here