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
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
Julien Moutinho
haskell-gargantext
Commits
aa827322
Verified
Commit
aa827322
authored
Jun 29, 2023
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[openalex] use search instead of filter
parent
fc05cfcb
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
4 additions
and
3 deletions
+4
-3
cabal.project
cabal.project
+1
-1
gargantext.cabal
gargantext.cabal
+1
-0
OpenAlex.hs
src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs
+1
-1
stack.yaml
stack.yaml
+1
-1
No files found.
cabal.project
View file @
aa827322
...
...
@@ -146,7 +146,7 @@ source-repository-package
source
-
repository
-
package
type
:
git
location
:
https
://
gitlab
.
iscpif
.
fr
/
gargantext
/
crawlers
/
openalex
.
git
tag
:
5
aac73a7be1b86dcc312936c000e5e5444144491
tag
:
0083
c02d62441d73f3616409c6453c87302c698f
allow
-
older
:
*
allow
-
newer
:
*
...
...
gargantext.cabal
View file @
aa827322
...
...
@@ -29,6 +29,7 @@ data-files:
test-data/phylo/bpa_phylo_test.json
test-data/phylo/open_science.json
.clippy.dhall
library
exposed-modules:
Gargantext
...
...
src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs
View file @
aa827322
...
...
@@ -24,7 +24,7 @@ get :: Text
->
Maybe
Limit
->
IO
(
Either
ClientError
(
Maybe
Integer
,
ConduitT
()
HyperdataDocument
IO
()
))
get
_email
q
_l
=
do
eRes
<-
OA
.
fetchWorksC
Nothing
$
Just
$
Corpus
.
getRawQuery
q
eRes
<-
OA
.
fetchWorksC
Nothing
Nothing
$
Just
$
Corpus
.
getRawQuery
q
pure
$
(
\
(
len
,
docsC
)
->
(
len
,
docsC
.|
takeC
1000
.|
mapC
toDoc
))
<$>
eRes
toDoc
::
OA
.
Work
->
HyperdataDocument
...
...
stack.yaml
View file @
aa827322
...
...
@@ -60,7 +60,7 @@ extra-deps:
-
git
:
https://gitlab.iscpif.fr/gargantext/crawlers/arxiv-api.git
commit
:
2d7e5753cbbce248b860b571a0e9885415c846f7
-
git
:
https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
commit
:
723a641f108e11e0b57ecbf22d279aca81317c0a
commit
:
0083c02d62441d73f3616409c6453c87302c698f
# NP libs
-
git
:
https://github.com/alpmestan/servant-job.git
commit
:
b4182487cfe479777c11ca19f3c0d47840b376f6
...
...
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