Commit 2c5ab6c1 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[CorpusView/Trash] Activating the REST route.

parent d8e86fc8
...@@ -46,15 +46,22 @@ statefulTabs = ...@@ -46,15 +46,22 @@ statefulTabs =
, Tuple "Sources" $ ngramsViewSpec {mode: Sources} , Tuple "Sources" $ ngramsViewSpec {mode: Sources}
, Tuple "Institutes" $ ngramsViewSpec {mode: Institutes} , Tuple "Institutes" $ ngramsViewSpec {mode: Institutes}
, Tuple "Terms" $ ngramsViewSpec {mode: Terms} , Tuple "Terms" $ ngramsViewSpec {mode: Terms}
, Tuple "Trash" $ docs -- TODO pass-in trash mode , Tuple "Trash" $ trash
] ]
where where
-- TODO totalRecords -- TODO totalRecords
chart = ECharts.chart globalPublis chart = ECharts.chart globalPublis
docs = cmapProps (\{path: nodeId} -> docs = cmapProps (\{path: nodeId} ->
{nodeId, chart, tabType: TabCorpus TabDocs, totalRecords: 4736}) $ {nodeId, chart, tabType: TabCorpus TabDocs, totalRecords: 4736}) $
noState DT.docViewSpec noState DT.docViewSpec
trash = cmapProps (\{path: nodeId} ->
{nodeId, chart, tabType: TabCorpus TabTrash, totalRecords: 4736}) $
noState DT.docViewSpec
ngramsViewSpec :: {mode :: Mode} -> Spec Tab.State Props Tab.Action ngramsViewSpec :: {mode :: Mode} -> Spec Tab.State Props Tab.Action
ngramsViewSpec {mode} = ngramsViewSpec {mode} =
noState ( noState (
......
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