Skip to content

haskell-gargantext
haskell-gargantext
Commit b86280ec authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[DEBUG] Message

parent 1a498118
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/API/Node/DocumentsFromWriteNodes.hs
View file @ b86280ec
...@@ -114,7 +114,7 @@ documentsFromWriteNodes uId nId Params { selection, lang, paragraphs } logStatus ...@@ -114,7 +114,7 @@ documentsFromWriteNodes uId nId Params { selection, lang, paragraphs } logStatus
let parsedE = (\(node, contents) let parsedE = (\(node, contents)
-> hyperdataDocumentFromFrameWrite lang (fromMaybe 7 paragraphs') (node, contents)) <$> frameWritesWithContents -> hyperdataDocumentFromFrameWrite lang (fromMaybe 7 paragraphs') (node, contents)) <$> frameWritesWithContents
let parsed = List.concat $ rights parsedE let parsed = List.concat $ rights parsedE
printDebug "DocumentsFromWriteNodes: uId" uId
_ <- flowDataText (RootId (NodeId uId)) _ <- flowDataText (RootId (NodeId uId))
(DataNew (Just $ fromIntegral $ length parsed, yieldMany parsed)) (DataNew (Just $ fromIntegral $ length parsed, yieldMany parsed))
(Multi lang) (Multi lang)
......
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