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
154
Issues
154
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
cf7797e2
Commit
cf7797e2
authored
Jan 04, 2021
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] back to Conditional distance
parent
dab6f378
Pipeline
#1324
canceled with stage
Changes
1
Pipelines
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
API.hs
src/Gargantext/Core/Viz/Graph/API.hs
+4
-4
No files found.
src/Gargantext/Core/Viz/Graph/API.hs
View file @
cf7797e2
...
@@ -91,8 +91,8 @@ getGraph _uId nId = do
...
@@ -91,8 +91,8 @@ getGraph _uId nId = do
-- TODO Distance in Graph params
-- TODO Distance in Graph params
case
graph
of
case
graph
of
Nothing
->
do
Nothing
->
do
graph'
<-
computeGraph
cId
Distributional
NgramsTerms
repo
--
graph' <- computeGraph cId Distributional NgramsTerms repo
--
graph' <- computeGraph cId Conditional NgramsTerms repo
graph'
<-
computeGraph
cId
Conditional
NgramsTerms
repo
mt
<-
defaultGraphMetadata
cId
"Title"
repo
mt
<-
defaultGraphMetadata
cId
"Title"
repo
let
graph''
=
set
graph_metadata
(
Just
mt
)
graph'
let
graph''
=
set
graph_metadata
(
Just
mt
)
graph'
let
hg
=
HyperdataGraphAPI
graph''
camera
let
hg
=
HyperdataGraphAPI
graph''
camera
...
@@ -205,7 +205,7 @@ graphRecompute u n logStatus = do
...
@@ -205,7 +205,7 @@ graphRecompute u n logStatus = do
,
_scst_remaining
=
Just
1
,
_scst_remaining
=
Just
1
,
_scst_events
=
Just
[]
,
_scst_events
=
Just
[]
}
}
_g
<-
trace
(
show
u
)
$
recomputeGraph
u
n
Distributional
-- Condi
tional
_g
<-
trace
(
show
u
)
$
recomputeGraph
u
n
Conditional
-- Distribu
tional
pure
JobLog
{
_scst_succeeded
=
Just
1
pure
JobLog
{
_scst_succeeded
=
Just
1
,
_scst_failed
=
Just
0
,
_scst_failed
=
Just
0
,
_scst_remaining
=
Just
0
,
_scst_remaining
=
Just
0
...
@@ -240,7 +240,7 @@ graphVersions nId = do
...
@@ -240,7 +240,7 @@ graphVersions nId = do
,
gv_repo
=
v
}
,
gv_repo
=
v
}
recomputeVersions
::
UserId
->
NodeId
->
GargNoServer
Graph
recomputeVersions
::
UserId
->
NodeId
->
GargNoServer
Graph
recomputeVersions
uId
nId
=
recomputeGraph
uId
nId
Distributional
-- Condi
tional
recomputeVersions
uId
nId
=
recomputeGraph
uId
nId
Conditional
-- Distribu
tional
------------------------------------------------------------
------------------------------------------------------------
graphClone
::
UserId
graphClone
::
UserId
...
...
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