Skip to content

P
purescript-gargantext
Commit 99ca6f6e authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[UPLOAD] File CSV HAL and Garg V3

parent d028c9a6
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
src/Gargantext/Components/Forest/Tree/Node/Action.purs
View file @ 99ca6f6e
...@@ -20,7 +20,7 @@ data Action = Submit String ...@@ -20,7 +20,7 @@ data Action = Submit String
----------------------------------------------------- -----------------------------------------------------
-- UploadFile Action -- UploadFile Action
-- file upload types -- file upload types
data FileType = CSV | PresseRIS data FileType = CSV | CSV_HAL | PresseRIS
derive instance genericFileType :: Generic FileType _ derive instance genericFileType :: Generic FileType _
...@@ -31,6 +31,7 @@ instance showFileType :: Show FileType where ...@@ -31,6 +31,7 @@ instance showFileType :: Show FileType where
show = genericShow show = genericShow
readFileType :: String -> Maybe FileType readFileType :: String -> Maybe FileType
readFileType "CSV_HAL" = Just CSV_HAL
readFileType "CSV" = Just CSV readFileType "CSV" = Just CSV
readFileType "PresseRIS" = Just PresseRIS readFileType "PresseRIS" = Just PresseRIS
readFileType _ = Nothing readFileType _ = Nothing
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment