Commit 99ca6f6e authored by Alexandre Delanoë's avatar Alexandre Delanoë

[UPLOAD] File CSV HAL and Garg V3

parent d028c9a6
......@@ -20,7 +20,7 @@ data Action = Submit String
-----------------------------------------------------
-- UploadFile Action
-- file upload types
data FileType = CSV | PresseRIS
data FileType = CSV | CSV_HAL | PresseRIS
derive instance genericFileType :: Generic FileType _
......@@ -31,6 +31,7 @@ instance showFileType :: Show FileType where
show = genericShow
readFileType :: String -> Maybe FileType
readFileType "CSV_HAL" = Just CSV_HAL
readFileType "CSV" = Just CSV
readFileType "PresseRIS" = Just PresseRIS
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