Skip to content

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

[MERGE] master and masterAfterDemo.

parents 0ef04e50 de8372d4
Pipeline #73 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 7 additions and 4 deletions
    src/Gargantext/API/Node.hs
    View file @ 191451e2
    ...@@ -251,10 +251,13 @@ graphAPI nId = do ...@@ -251,10 +251,13 @@ graphAPI nId = do
    nodeGraph <- getNode nId HyperdataGraph nodeGraph <- getNode nId HyperdataGraph
    let metadata = GraphMetadata "Title" [maybe 0 identity $ _node_parentId nodeGraph] let title = "IMT - Scientific publications - 1982-2017 - English"
    [ LegendField 1 "#FFFFFF" "Label 1" let metadata = GraphMetadata title [maybe 0 identity $ _node_parentId nodeGraph] [ LegendField 6 "#FFF" "Data processing"
    , LegendField 2 "#0048BA" "Label 2" , LegendField 7 "#FFF" "Networks"
    ] , LegendField 1 "#FFF" "Material science"
    , LegendField 5 "#FFF" "Energy / Environment"
    ]
    -- (map (\n -> LegendField n "#FFFFFF" (pack $ show n)) [1..10])
    graph <- set graph_metadata (Just metadata) graph <- set graph_metadata (Just metadata)
    <$> maybe defaultGraph identity <$> maybe defaultGraph identity
    ......
    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