Commit f23d8eb9 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[ERGO] order of databases

parent c9d099e5
...@@ -46,8 +46,8 @@ class Doc a where ...@@ -46,8 +46,8 @@ class Doc a where
dataFields :: Array DataField dataFields :: Array DataField
dataFields = [ Gargantext dataFields = [ Gargantext
, Web
, External Nothing , External Nothing
, Web
-- , Files -- , Files
] ]
...@@ -59,8 +59,8 @@ data DataField = Gargantext ...@@ -59,8 +59,8 @@ data DataField = Gargantext
instance showDataField :: Show DataField where instance showDataField :: Show DataField where
show Gargantext = "Gargantext" show Gargantext = "Gargantext"
show (External _) = "Others" -- <> show x show (External _) = "Databases (APIs)" -- <> show x
show Web = "Web" show Web = "Soon: web"
show Files = "Files" show Files = "Files"
instance docDataField :: Doc DataField where instance docDataField :: Doc DataField where
......
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