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
0b6ca78d
Verified
Commit
0b6ca78d
authored
Feb 01, 2024
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[graphql] fix for languages query
parent
dd1fccf5
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
8 additions
and
8 deletions
+8
-8
Endpoints.purs
src/Gargantext/Components/GraphQL/Endpoints.purs
+1
-1
NLP.purs
src/Gargantext/Components/GraphQL/NLP.purs
+6
-6
Lang.purs
src/Gargantext/Components/Lang.purs
+1
-1
No files found.
src/Gargantext/Components/GraphQL/Endpoints.purs
View file @
0b6ca78d
...
@@ -215,7 +215,7 @@ getLanguages session = do
...
@@ -215,7 +215,7 @@ getLanguages session = do
Right { languages } -> do
Right { languages } -> do
liftEffect $ here.log2 "[getLanguages] languages" languages
liftEffect $ here.log2 "[getLanguages] languages" languages
pure $ Right $ Map.fromFoldable $ (\{
key, value } -> Tuple key value
) <$> languages
pure $ Right $ Map.fromFoldable $ (\{
lt_lang, lt_server } -> Tuple lt_lang lt_server
) <$> languages
getContextNgrams :: Session -> Int -> Int -> AffRESTError (Array NgramsTerm)
getContextNgrams :: Session -> Int -> Int -> AffRESTError (Array NgramsTerm)
getContextNgrams session context_id list_id = do
getContextNgrams session context_id list_id = do
...
...
src/Gargantext/Components/GraphQL/NLP.purs
View file @
0b6ca78d
...
@@ -14,13 +14,13 @@ type LanguageProperties
...
@@ -14,13 +14,13 @@ type LanguageProperties
}
}
type Language
type Language
= {
key
:: Lang
= {
lt_lang
:: Lang
,
value
:: LanguageProperties }
,
lt_server
:: LanguageProperties }
type NLPQuery =
type NLPQuery =
{ languages ::
{ languages ::
{
key
:: Unit
{
lt_lang
:: Unit
,
value
:: {
,
lt_server
:: {
url :: Unit
url :: Unit
, server :: Unit }
, server :: Unit }
}
}
...
@@ -28,8 +28,8 @@ type NLPQuery =
...
@@ -28,8 +28,8 @@ type NLPQuery =
nlpQuery :: NLPQuery
nlpQuery :: NLPQuery
nlpQuery = { languages:
nlpQuery = { languages:
{
key
: unit
{
lt_lang
: unit
,
value
: {
,
lt_server
: {
url : unit
url : unit
, server: unit }
, server: unit }
}
}
...
...
src/Gargantext/Components/Lang.purs
View file @
0b6ca78d
...
@@ -54,7 +54,7 @@ derive instance Generic Lang _
...
@@ -54,7 +54,7 @@ derive instance Generic Lang _
derive instance Ord Lang
derive instance Ord Lang
instance Show Lang where
instance Show Lang where
--
show Universal = "All"
show Universal = "All"
show No_extraction = "Nothing"
show No_extraction = "Nothing"
show s = genericShow s
show s = genericShow s
...
...
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