Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
H
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
Przemyslaw Kaminski
haskell-gargantext
Commits
dceb51d0
Commit
dceb51d0
authored
Apr 19, 2022
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[DOC] Notebook is Codebook
parent
688deaaf
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
6 additions
and
8 deletions
+6
-8
gargantext.cabal
gargantext.cabal
+2
-2
Flow.hs
src/Gargantext/Database/Action/Flow.hs
+3
-5
Node.hs
src/Gargantext/Database/Action/Node.hs
+1
-1
No files found.
gargantext.cabal
View file @
dceb51d0
cabal-version:
0.0.5.8.5.1
cabal-version:
1.12
-- This file has been generated from package.yaml by hpack version 0.34.4.
-- This file has been generated from package.yaml by hpack version 0.34.4.
--
--
-- see: https://github.com/sol/hpack
-- see: https://github.com/sol/hpack
name: gargantext
name: gargantext
version: 0.0.5.8.5.1
version:
0.0.5.8.5.1
synopsis: Search, map, share
synopsis: Search, map, share
description: Please see README.md
description: Please see README.md
category: Data
category: Data
...
...
src/Gargantext/Database/Action/Flow.hs
View file @
dceb51d0
...
@@ -176,7 +176,6 @@ getDataText_Debug a l q li = do
...
@@ -176,7 +176,6 @@ getDataText_Debug a l q li = do
Right
res
->
liftBase
$
printDataText
res
Right
res
->
liftBase
$
printDataText
res
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
flowDataText
::
forall
env
err
m
.
flowDataText
::
forall
env
err
m
.
(
FlowCmdM
env
err
m
(
FlowCmdM
env
err
m
...
@@ -258,10 +257,9 @@ flow :: forall env err m a c.
...
@@ -258,10 +257,9 @@ flow :: forall env err m a c.
->
m
CorpusId
->
m
CorpusId
flow
c
u
cn
la
mfslw
(
mLength
,
docsC
)
logStatus
=
do
flow
c
u
cn
la
mfslw
(
mLength
,
docsC
)
logStatus
=
do
-- TODO if public insertMasterDocs else insertUserDocs
-- TODO if public insertMasterDocs else insertUserDocs
ids
<-
runConduit
$
ids
<-
runConduit
$
zipSources
(
yieldMany
[
1
..
])
docsC
zipSources
(
yieldMany
[
1
..
])
docsC
.|
mapMC
insertDoc
.|
mapMC
insertDoc
.|
sinkList
.|
sinkList
-- ids <- traverse (\(idx, doc) -> do
-- ids <- traverse (\(idx, doc) -> do
-- id <- insertMasterDocs c la doc
-- id <- insertMasterDocs c la doc
-- logStatus JobLog { _scst_succeeded = Just $ 1 + idx
-- logStatus JobLog { _scst_succeeded = Just $ 1 + idx
...
...
src/Gargantext/Database/Action/Node.hs
View file @
dceb51d0
...
@@ -86,7 +86,7 @@ mkNodeWithParent_ConfigureHyperdata NodeFrameVisio (Just i) uId name =
...
@@ -86,7 +86,7 @@ mkNodeWithParent_ConfigureHyperdata NodeFrameVisio (Just i) uId name =
mkNodeWithParent_ConfigureHyperdata'
NodeFrameVisio
(
Just
i
)
uId
name
mkNodeWithParent_ConfigureHyperdata'
NodeFrameVisio
(
Just
i
)
uId
name
mkNodeWithParent_ConfigureHyperdata
NodeFrameNotebook
(
Just
i
)
uId
name
=
mkNodeWithParent_ConfigureHyperdata
NodeFrameNotebook
(
Just
i
)
uId
name
=
insertNode
NodeFrameNotebook
(
Just
"Notebook"
)
(
Just
$
DefaultFrameCode
$
HyperdataFrame
"
Not
ebook"
name
)
i
uId
insertNode
NodeFrameNotebook
(
Just
"Notebook"
)
(
Just
$
DefaultFrameCode
$
HyperdataFrame
"
Cod
ebook"
name
)
i
uId
mkNodeWithParent_ConfigureHyperdata
_
_
_
_
=
nodeError
NotImplYet
mkNodeWithParent_ConfigureHyperdata
_
_
_
_
=
nodeError
NotImplYet
...
...
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