Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
128
Issues
128
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
purescript-gargantext
Commits
dd3c2649
Commit
dd3c2649
authored
Nov 08, 2019
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX]
parent
2a06da0c
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
3 deletions
+13
-3
Types.purs
src/Gargantext/Components/Search/Types.purs
+13
-3
No files found.
src/Gargantext/Components/Search/Types.purs
View file @
dd3c2649
...
...
@@ -59,7 +59,9 @@ allDatabases = [ Gargantext
, HAL
, IsTex
, Isidore
-- , Web
--, Web
--, News
--, SocialNetworks
]
data Database = All_Databases
...
...
@@ -69,6 +71,8 @@ data Database = All_Databases
| IsTex
| Isidore
| Web
| News
| SocialNetworks
instance showDatabase :: Show Database where
show All_Databases= "All Databases"
...
...
@@ -78,6 +82,8 @@ instance showDatabase :: Show Database where
show IsTex = "IsTex"
show Isidore= "Isidore"
show Web = "Web"
show News = "News"
show SocialNetworks = "Social Networks"
class Doc a where
doc :: a -> String
...
...
@@ -89,7 +95,9 @@ instance docDatabase :: Doc Database where
doc HAL = "All open science (archives ouvertes)"
doc IsTex = "All Elsevier enriched by CNRS/INIST"
doc Isidore = "All (French) Social Sciences"
doc Web = "All the web"
doc Web = "All the web crawled with meta-search-engine SearX"
doc News = "Web filtered by News"
doc SocialNetworks = "Web filtered by MicroBlogs"
readDatabase :: String -> Maybe Database
readDatabase "All Databases" = Just All_Databases
...
...
@@ -99,6 +107,8 @@ readDatabase "HAL" = Just HAL
readDatabase "IsTex" = Just IsTex
readDatabase "Isidore"= Just Isidore
readDatabase "Web" = Just Web
readDatabase "News" = Just News
readDatabase "Social Networks" = Just SocialNetworks
readDatabase _ = Nothing
derive instance eqDatabase :: Eq Database
...
...
@@ -121,7 +131,7 @@ data Org = All_Orgs
| Others
instance showOrg :: Show Org where
show All_Orgs = "All_
_
Orgs"
show All_Orgs = "All_Orgs"
show CNRS = "CNRS"
show IMT = "IMT"
show Others = "Others"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment