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
0
Issues
0
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
Grégoire Locqueville
purescript-gargantext
Commits
4cc77edb
Commit
4cc77edb
authored
5 years ago
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FEAT] external APIs adding Isidore.
parent
afec4c08
No related merge requests found
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
4 deletions
+17
-4
Types.purs
src/Gargantext/Components/Search/Types.purs
+17
-4
No files found.
src/Gargantext/Components/Search/Types.purs
View file @
4cc77edb
...
...
@@ -23,19 +23,35 @@ import Gargantext.Components.Modals.Modal (modalHide)
import Gargantext.Utils (id)
import URI.Extra.QueryPairs as QP
allDatabases :: Array Database
allDatabases = [All, PubMed, Isidore_EN, Isidore_FR]
data Database = All | PubMed | HAL | IsTex
| Isidore_FR | Isidore_EN
data Langs = FR | EN
-- | Types needed for now maybe not useful later
instance showLangs :: Show Langs where
show FR = "FR"
show EN = "EN"
instance showDatabase :: Show Database where
show All = "All"
show PubMed = "PubMed"
show HAL = "HAL"
show IsTex = "IsTex"
show Isidore_FR = "Isidore_" <> show FR
show Isidore_EN = "Isidore_" <> show EN
readDatabase :: String -> Maybe Database
readDatabase "All" = Just All
readDatabase "PubMed" = Just PubMed
readDatabase "HAL" = Just HAL
readDatabase "IsTex" = Just IsTex
readDatabase "Isidore_FR" = Just Isidore_FR
readDatabase "Isidore_EN" = Just Isidore_EN
readDatabase _ = Nothing
derive instance eqDatabase :: Eq Database
...
...
@@ -44,9 +60,6 @@ instance encodeJsonDatabase :: EncodeJson Database where
encodeJson a = encodeJson (show a)
allDatabases :: Array Database
allDatabases = [All, PubMed]
data SearchOrder
= DateAsc
| DateDesc
...
...
This diff is collapsed.
Click to expand it.
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