Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
H
haskell-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
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
Przemyslaw Kaminski
haskell-gargantext
Commits
88585c12
Commit
88585c12
authored
Sep 25, 2018
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FEAT] Folder and not project any more (which is the same but more generic).
parent
b679a10b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
5 deletions
+4
-5
Main.hs
src/Gargantext/Core/Types/Main.hs
+3
-4
Node.hs
src/Gargantext/Database/Types/Node.hs
+1
-1
No files found.
src/Gargantext/Core/Types/Main.hs
View file @
88585c12
...
...
@@ -60,15 +60,14 @@ userTree = TreeN (NodeTree "user name" NodeUser 1) [annuaireTree, projectTree]
-- | Project Tree
projectTree
::
Tree
NodeTree
projectTree
=
TreeN
(
NodeTree
"Project CNRS/IMT"
Project
2
)
[
corpusTree
10
"A"
,
corpusTree
20
"B"
]
projectTree
=
TreeN
(
NodeTree
"Project CNRS/IMT"
Folder
2
)
[
corpusTree
10
"A"
,
corpusTree
20
"B"
]
type
Individu
=
Document
-- | Corpus Tree
annuaireTree
::
Tree
NodeTree
annuaireTree
=
TreeN
(
NodeTree
"Annuaire"
Annuaire
41
)
(
[
leafT
$
NodeTree
"IMT"
Individu
42
]
<>
[
leafT
$
NodeTree
"CNRS"
Individu
43
]
)
annuaireTree
=
(
leafT
$
NodeTree
"Annuaire"
Annuaire
41
)
corpusTree
::
NodeId
->
Text
->
Tree
NodeTree
corpusTree
nId
t
=
TreeN
(
NodeTree
(
"Corpus "
<>
t
)
NodeCorpus
nId
)
(
[
leafT
$
NodeTree
"Dashboard"
Dashboard
(
nId
+
1
)
...
...
src/Gargantext/Database/Types/Node.hs
View file @
88585c12
...
...
@@ -274,7 +274,7 @@ type NodeCorpus = Node HyperdataCorpus
type
Document
=
Node
HyperdataDocument
------------------------------------------------------------------------
data
NodeType
=
NodeUser
|
Project
|
Folder
data
NodeType
=
NodeUser
|
Folder
|
NodeCorpus
|
Annuaire
|
Document
|
Individu
|
UserPage
|
DocumentCopy
|
Favorites
...
...
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