Commit dceb51d0 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[DOC] Notebook is Codebook

parent 688deaaf
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
......
...@@ -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
......
...@@ -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 "Notebook" name) i uId insertNode NodeFrameNotebook (Just "Notebook") (Just $ DefaultFrameCode $ HyperdataFrame "Codebook" name) i uId
mkNodeWithParent_ConfigureHyperdata _ _ _ _ = nodeError NotImplYet mkNodeWithParent_ConfigureHyperdata _ _ _ _ = nodeError NotImplYet
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment