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
9
Merge Requests
9
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
bfbee53a
Commit
bfbee53a
authored
Jun 15, 2022
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] IsTex
parent
0cd4614c
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
8 additions
and
7 deletions
+8
-7
gargantext.cabal
gargantext.cabal
+1
-1
Istex.hs
src/Gargantext/Core/Text/Corpus/API/Istex.hs
+4
-4
Date.hs
src/Gargantext/Core/Text/Corpus/Parsers/Date.hs
+2
-1
stack.yaml
stack.yaml
+1
-1
No files found.
gargantext.cabal
View file @
bfbee53a
...
...
@@ -5,7 +5,7 @@ cabal-version: 1.12
-- see: https://github.com/sol/hpack
name: gargantext
version: 0.0.5.8.9.4
version:
0.0.5.8.9.4
synopsis: Search, map, share
description: Please see README.md
category: Data
...
...
src/Gargantext/Core/Text/Corpus/API/Istex.hs
View file @
bfbee53a
...
...
@@ -27,11 +27,11 @@ import qualified ISTEX as ISTEX
import
qualified
ISTEX.Client
as
ISTEX
get
::
Lang
->
Text
->
Maybe
Integer
->
IO
[
HyperdataDocument
]
get
la
q
ml
=
do
get
la
q
_
ml
=
do
--docs <- ISTEX.getMetadataWith q (fromIntegral <$> ml)
printDebug
"[Istex.get] calling getMetadataScrollProgress for la"
la
printDebug
"[Istex.get] calling getMetadataScrollProgress for q"
q
printDebug
"[Istex.get] calling getMetadataScrollProgress for ml"
ml
--
printDebug "[Istex.get] calling getMetadataScrollProgress for la" la
--
printDebug "[Istex.get] calling getMetadataScrollProgress for q" q
--
printDebug "[Istex.get] calling getMetadataScrollProgress for ml" ml
-- The "scroll" expects "d/h/m/s/ms" time interval. Let's set it to "1 month"
--eDocs <- ISTEX.getMetadataScroll q ((\_n -> pack $ "1m") <$> ml) Nothing 0 --(fromIntegral <$> ml)
eDocs
<-
ISTEX
.
getMetadataScroll
q
"1m"
Nothing
0
--(fromIntegral <$> ml)
...
...
src/Gargantext/Core/Text/Corpus/Parsers/Date.hs
View file @
bfbee53a
...
...
@@ -73,7 +73,8 @@ type Day = Int
-- 1900-04-10 00:00:00 UTC
parse
::
Lang
->
Text
->
IO
UTCTime
parse
lang
s
=
do
dateStr'
<-
parseRawSafe
lang
s
printDebug
"Date: "
s
dateStr'
<-
pure
$
dateFlow
(
DucklingFailure
s
)
-- parseRawSafe lang s
case
dateFlow
dateStr'
of
DateFlowSuccess
ok
->
pure
ok
_
->
withDebugMode
(
DebugMode
True
)
...
...
stack.yaml
View file @
bfbee53a
...
...
@@ -73,7 +73,7 @@ extra-deps:
-
git
:
https://gitlab.iscpif.fr/gargantext/crawlers/pubmed.git
commit
:
02e03d9b856bd35d391f43da8525330f9d184615
-
git
:
https://gitlab.iscpif.fr/gargantext/crawlers/istex.git
commit
:
3888454a844180b87c8edd36b7e06fbdf8e9ffac
commit
:
6821f41655e298fa1fac5021c5776a6aed2d18fd
-
git
:
https://gitlab.iscpif.fr/gargantext/crawlers/hal.git
commit
:
9a43470241690a19c1c381c42a62c5dd4e28dff2
-
git
:
https://gitlab.iscpif.fr/gargantext/crawlers/isidore.git
...
...
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