Skip to content

P
purescript-gargantext
Commit 663ea4ca authored by Abinaya Sudhir's avatar Abinaya Sudhir
Browse files
Options

Cleared Error

parent 43edcadb
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
src/Navigation.purs
View file @ 663ea4ca
...@@ -99,6 +99,7 @@ pagesComponent s = ...@@ -99,6 +99,7 @@ pagesComponent s =
selectSpec :: Routes -> Spec (ajax :: AJAX, console :: CONSOLE, dom :: DOM | eff) AppState props Action selectSpec :: Routes -> Spec (ajax :: AJAX, console :: CONSOLE, dom :: DOM | eff) AppState props Action
selectSpec Home = focus _landingState _landingAction L.loginSpec selectSpec Home = focus _landingState _landingAction L.loginSpec
selectSpec Login = wrap $ focus _loginState _loginAction LN.renderSpec selectSpec Login = wrap $ focus _loginState _loginAction LN.renderSpec
selectSpec AddCorpus = wrap $ focus _addCorpusState _addCorpusAction AC.addcorpusviewSpec
routingSpec :: forall props eff. Spec (dom :: DOM |eff) AppState props Action routingSpec :: forall props eff. Spec (dom :: DOM |eff) AppState props Action
routingSpec = simpleSpec performAction defaultRender routingSpec = simpleSpec performAction defaultRender
......
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