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
Grégoire Locqueville
haskell-gargantext
Commits
f11abb76
Commit
f11abb76
authored
Mar 02, 2023
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Plain Diff
[MERGE]
parents
ba18ea35
224a3f87
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
8 deletions
+3
-8
gargantext.cabal
gargantext.cabal
+1
-1
DocumentsFromWriteNodes.hs
src/Gargantext/API/Node/DocumentsFromWriteNodes.hs
+2
-7
No files found.
gargantext.cabal
View file @
f11abb76
...
...
@@ -5,7 +5,7 @@ cabal-version: 1.12
-- see: https://github.com/sol/hpack
name: gargantext
version: 0.0.6.9.4.8
version:
0.0.6.9.4.8
synopsis: Search, map, share
description: Please see README.md
category: Data
...
...
src/Gargantext/API/Node/DocumentsFromWriteNodes.hs
View file @
f11abb76
...
...
@@ -21,9 +21,7 @@ import Conduit
import
Control.Lens
((
^.
))
import
Data.Aeson
import
Data.Either
(
Either
(
..
),
rights
)
import
Data.Maybe
(
fromMaybe
)
import
Data.Swagger
import
Data.Text
(
Text
)
import
GHC.Generics
(
Generic
)
import
Gargantext.API.Admin.EnvTypes
(
Env
,
GargJob
(
..
))
import
Gargantext.API.Admin.Orchestrator.Types
(
JobLog
(
..
),
AsyncJobs
)
...
...
@@ -46,7 +44,6 @@ import Gargantext.Prelude
import
Gargantext.Utils.Jobs
(
serveJobsAPI
)
import
Gargantext.Core.Text.Corpus.Parsers.Date
(
split'
)
import
Servant
import
Text.Read
(
readMaybe
)
import
qualified
Data.List
as
List
import
qualified
Data.Text
as
T
-- import qualified Gargantext.Defaults as Defaults
...
...
@@ -57,7 +54,7 @@ type API = Summary " Documents from Write nodes."
------------------------------------------------------------------------
data
Params
=
Params
{
id
::
Int
,
paragraphs
::
Tex
t
,
paragraphs
::
In
t
,
lang
::
Lang
,
selection
::
FlowSocialListWith
}
...
...
@@ -109,10 +106,8 @@ documentsFromWriteNodes uId nId Params { selection, lang, paragraphs } logStatus
pure
(
node
,
contents
)
)
frameWrites
let
paragraphs'
=
readMaybe
$
T
.
unpack
paragraphs
::
Maybe
Int
let
parsedE
=
(
\
(
node
,
contents
)
->
hyperdataDocumentFromFrameWrite
lang
(
fromMaybe
7
paragraphs'
)
(
node
,
contents
))
<$>
frameWritesWithContents
->
hyperdataDocumentFromFrameWrite
lang
paragraphs
(
node
,
contents
))
<$>
frameWritesWithContents
let
parsed
=
List
.
concat
$
rights
parsedE
printDebug
"DocumentsFromWriteNodes: uId"
uId
_
<-
flowDataText
(
RootId
(
NodeId
uId
))
...
...
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