Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
148
Issues
148
List
Board
Labels
Milestones
Merge Requests
7
Merge Requests
7
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
haskell-gargantext
Commits
1feb14bc
Commit
1feb14bc
authored
Jan 16, 2024
by
Fabien Manière
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
replace _nlp_all with _nlp_default AND update las commit of the haskell-gargantext-prelude package
parent
5fedd944
Pipeline
#5504
failed with stages
in 19 minutes and 58 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
3 additions
and
3 deletions
+3
-3
cabal.project
cabal.project
+1
-1
Core.hs
src/Gargantext/Core.hs
+1
-1
NLP.hs
src/Gargantext/Core/NLP.hs
+1
-1
No files found.
cabal.project
View file @
1feb14bc
...
...
@@ -119,7 +119,7 @@ source-repository-package
source
-
repository
-
package
type
:
git
location
:
https
://
gitlab
.
iscpif
.
fr
/
gargantext
/
haskell
-
gargantext
-
prelude
tag
:
5
a8dc3a0a1a4774ec2eb9df5f0f0b0a7dd172f09
tag
:
618f711
a530df56caefbb1577c4bf3d5ff45e214
source
-
repository
-
package
type
:
git
...
...
src/Gargantext/Core.hs
View file @
1feb14bc
...
...
@@ -75,7 +75,7 @@ instance ToSchema Lang where
declareNamedSchema
=
genericDeclareNamedSchemaUnrestricted
defaultSchemaOptions
instance
FromHttpApiData
Lang
where
parseUrlPiece
"All"
=
pure
All
--
parseUrlPiece "All" = pure All
parseUrlPiece
"DE"
=
pure
DE
parseUrlPiece
"EL"
=
pure
EL
parseUrlPiece
"EN"
=
pure
EN
...
...
src/Gargantext/Core/NLP.hs
View file @
1feb14bc
...
...
@@ -64,7 +64,7 @@ nlpServerConfigFromURI _ = Nothing
nlpServerMap
::
NLPConfig
->
NLPServerMap
nlpServerMap
(
NLPConfig
{
..
})
=
Map
.
fromList
$
catMaybes
$
[
uncurryMaybeSecond
(
All
,
nlpServerConfigFromURI
_nlp_all
)
]
++
[
uncurryMaybeSecond
(
EN
,
nlpServerConfigFromURI
_nlp_default
)
]
++
((
\
lang
->
uncurryMaybeSecond
(
lang
,
Map
.
lookup
(
show
lang
)
_nlp_languages
>>=
nlpServerConfigFromURI
))
<$>
allLangs
)
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