Commit 1886255b authored by Abinaya Sudhir's avatar Abinaya Sudhir

Navigation done

parent c1b95d7a
...@@ -32,8 +32,8 @@ int = floor <$> num ...@@ -32,8 +32,8 @@ int = floor <$> num
routing :: Match Routes routing :: Match Routes
routing = routing =
loginRoute loginRoute
<|> addcorpusRoute
<|> docviewRoute <|> docviewRoute
<|> addcorpusRoute
<|> home <|> home
where where
docviewRoute = DocView <$ route "docView" docviewRoute = DocView <$ route "docView"
......
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