Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
139
Issues
139
List
Board
Labels
Milestones
Merge Requests
4
Merge Requests
4
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
purescript-gargantext
Commits
8e545c16
Commit
8e545c16
authored
6 years ago
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[FIX] Typo and Type name.
parent
cb39fda6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
11 deletions
+11
-11
Corpus.purs
src/Gargantext/Pages/Corpus.purs
+10
-10
Layout.purs
src/Gargantext/Pages/Layout.purs
+1
-1
No files found.
src/Gargantext/Pages/Corpus.purs
View file @
8e545c16
...
...
@@ -62,16 +62,16 @@ _tablens :: Lens' State Tab.State
_tablens = lens (\s -> s.activeTab) (\s ss -> s {activeTab = ss})
------------------------------------------------------------------------
data Action = Load Int
| DocviewA
ction
D.Action
| DocviewA D.Action
| AuthorviewA A.Action
| SourceviewA S.Action
| TermsviewA T.Action
| TabViewA Tab.Action
_docAction :: Prism' Action D.Action
_docAction = prism DocviewA
ction
\ action ->
_docAction = prism DocviewA \ action ->
case action of
DocviewA
ction
laction -> Right laction
DocviewA laction -> Right laction
_-> Left action
_authorAction :: Prism' Action A.Action
...
...
@@ -215,11 +215,11 @@ performAction (Load nId) _ _ = do
(Left err) -> do
logs err
logs $ "Node Corpus fetched."
performAction (DocviewA
ction a
) _ _ = pure unit
performAction (DocviewA
_
) _ _ = pure unit
performAction (AuthorviewA _) _ _ = pure unit
performAction (SourceviewA _) _ _ = pure unit
performAction (TabViewA _) _ _ = pure unit
performAction (TermsviewA _) _ _ = pure unit
performAction (TabViewA
_) _ _ = pure unit
performAction (TermsviewA
_) _ _ = pure unit
getNode :: Int -> Aff (Either String (NodePoly CorpusInfo))
getNode id = get $ toUrl Back Node id
...
...
@@ -229,10 +229,10 @@ getNode id = get $ toUrl Back Node id
------------------------------------------------------------------------
facets :: Spec State {} Action
facets =
Tab.tabs _tablens _tabAction $ fromFoldable [ Tuple "Doc
View
" docPageSpec
, Tuple "Author
View
" authorPageSpec
, Tuple "Source
View
" sourcePageSpec
, Tuple "Terms
View
" termsPageSpec
Tab.tabs _tablens _tabAction $ fromFoldable [ Tuple "Doc
uments
" docPageSpec
, Tuple "Author
s
" authorPageSpec
, Tuple "Source
s
" sourcePageSpec
, Tuple "Terms" termsPageSpec
]
docPageSpec :: Spec State {} Action
...
...
This diff is collapsed.
Click to expand it.
src/Gargantext/Pages/Layout.purs
View file @
8e545c16
...
...
@@ -43,7 +43,7 @@ dispatchAction dispatcher _ (DocView n) = do
dispatchAction dispatcher _ (Corpus n) = do
dispatcher $ SetRoute $ Corpus n
dispatcher $ CorpusAction $ Corpus.Load n
dispatcher $ CorpusAction $ Corpus.DocviewA
ction
$ D.LoadData n
dispatcher $ CorpusAction $ Corpus.DocviewA $ D.LoadData n
dispatchAction dispatcher _ SearchView = do
dispatcher $ SetRoute SearchView
...
...
This diff is collapsed.
Click to expand it.
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