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

[DATA] stack exec gargantext-graph-exe data/Vdicosyn.csv

parent dad5aee1
This diff is collapsed.
@node: #id_pdg,%+voisins,id,lemme,label @node: #id_pdg,%+voisins,id,lemme,label
0,"2,4,9,17,22,38,43,53,59,60,79",37.0,abuser,abuser-c2 0,"2,4,9,17,22,38,43,53,59,60,79",37.0,abuser,abuser-c2
1,"5,13,22,47,49,69,70,76",122.0,affecter,affecter-c1 1,"5,13,22,47,49,69,70,76",122.0,affecter,affecter-c1
2,"0,20,21,28,33,35,56,80",158.0,agir,agir-1-6 2,"0,20,21,28,33,35,56,80",158.0,agir,agir-1-6
......
This source diff could not be displayed because it is too large. You can view the blob instead.
...@@ -133,8 +133,8 @@ instance FromNamedRecord TestCsv where ...@@ -133,8 +133,8 @@ instance FromNamedRecord TestCsv where
data CillexCsv = data CillexCsv =
CillexCsv { node :: Int CillexCsv { node :: Int
, voisins :: Text , voisins :: Text
, id :: Double
, lemme :: Text , lemme :: Text
, id :: Double
, label :: Text , label :: Text
} }
deriving (Show) deriving (Show)
...@@ -142,8 +142,8 @@ data CillexCsv = ...@@ -142,8 +142,8 @@ data CillexCsv =
instance FromNamedRecord CillexCsv where instance FromNamedRecord CillexCsv where
parseNamedRecord r = CillexCsv <$> r .: "@node: #id_pdg" parseNamedRecord r = CillexCsv <$> r .: "@node: #id_pdg"
<*> r .: "%+voisins" <*> r .: "%+voisins"
<*> r .: "id"
<*> r .: "lemme" <*> r .: "lemme"
<*> r .: "id"
<*> r .: "label" <*> r .: "label"
{- {-
......
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