Commit 75ae440b authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] Dashboard route.

parent 0ce54177
......@@ -54,8 +54,8 @@ routing =
<|> docviewRoute
<|> addcorpusRoute
<|> corpusAnalysis
<|> home
<|> dashboard
<|> home
where
tabview = Tabview <$ route "tabview"
documentView = AnnotationDocumentView <$> (route "documentView" *> int)
......@@ -65,8 +65,8 @@ routing =
addcorpusRoute = AddCorpus <$ route "addCorpus"
loginRoute = Login <$ route "login"
corpusAnalysis = CorpusAnalysis <$ route "corpus"
home = Home <$ lit ""
dashboard = Dashboard <$ route "dashboard"
home = Home <$ lit ""
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