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

Navigation done

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