Skip to content

P
purescript-gargantext
Commit 75ae440b authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Dashboard route.

parent 0ce54177
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/PageRouter.purs
View file @ 75ae440b
...@@ -54,8 +54,8 @@ routing = ...@@ -54,8 +54,8 @@ routing =
<|> docviewRoute <|> docviewRoute
<|> addcorpusRoute <|> addcorpusRoute
<|> corpusAnalysis <|> corpusAnalysis
<|> home
<|> dashboard <|> dashboard
<|> home
where where
tabview = Tabview <$ route "tabview" tabview = Tabview <$ route "tabview"
documentView = AnnotationDocumentView <$> (route "documentView" *> int) documentView = AnnotationDocumentView <$> (route "documentView" *> int)
...@@ -65,8 +65,8 @@ routing = ...@@ -65,8 +65,8 @@ routing =
addcorpusRoute = AddCorpus <$ route "addCorpus" addcorpusRoute = AddCorpus <$ route "addCorpus"
loginRoute = Login <$ route "login" loginRoute = Login <$ route "login"
corpusAnalysis = CorpusAnalysis <$ route "corpus" corpusAnalysis = CorpusAnalysis <$ route "corpus"
home = Home <$ lit ""
dashboard = Dashboard <$ route "dashboard" dashboard = Dashboard <$ route "dashboard"
home = Home <$ lit ""
route str = lit "" *> lit str route str = lit "" *> lit str
......
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