Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
147
Issues
147
List
Board
Labels
Milestones
Merge Requests
6
Merge Requests
6
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
gargantext
haskell-gargantext
Commits
f70d635d
Commit
f70d635d
authored
Mar 14, 2018
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] adding some examples for mock.
parent
1e72c415
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
4 deletions
+12
-4
Node.hs
src/Gargantext/Types/Node.hs
+12
-4
No files found.
src/Gargantext/Types/Node.hs
View file @
f70d635d
...
...
@@ -76,11 +76,19 @@ data HyperdataDocument = HyperdataDocument { hyperdataDocument_bdd
}
deriving
(
Show
,
Generic
)
$
(
deriveJSON
(
unPrefix
"hyperdataDocument_"
)
''
H
yperdataDocument
)
toHyperdataDocuments
::
[(
Text
,
Text
)]
->
[
HyperdataDocument
]
toHyperdataDocuments
ts
=
map
(
\
(
t1
,
t2
)
->
HyperdataDocument
Nothing
Nothing
Nothing
Nothing
(
Just
t1
)
Nothing
(
Just
t2
)
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
)
ts
hyperdataDocuments
::
[
HyperdataDocument
]
hyperdataDocuments
=
[
HyperdataDocument
Nothing
Nothing
Nothing
Nothing
(
Just
"AI is big but less than crypto"
)
Nothing
(
Just
"Troll System journal"
)
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
Nothing
]
hyperdataDocuments
=
toHyperdataDocuments
[
(
"AI is big but less than crypto"
,
"Troll System journal"
)
,
(
"Crypto is big but less than AI"
,
"System Troll review"
)
,
(
"Science is magic"
,
"Closed Source review"
)
,
(
"Open science for all"
,
"No Time"
)
,
(
"Closed science for me"
,
"No Space"
)
]
instance
Arbitrary
HyperdataDocument
where
...
...
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