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
153
Issues
153
List
Board
Labels
Milestones
Merge Requests
12
Merge Requests
12
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