Skip to content

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

[READ] cosmetics

parent 967609e6
Show whitespace changes
Inline Side-by-side
Showing with 14 additions and 16 deletions
src/Gargantext/Layout.purs
View file @ e2c530a4
...@@ -33,10 +33,8 @@ import Unsafe.Coerce (unsafeCoerce) ...@@ -33,10 +33,8 @@ import Unsafe.Coerce (unsafeCoerce)
pagesComponent :: forall props eff. AppState -> Spec (E eff) AppState props Action pagesComponent :: forall props eff. AppState -> Spec (E eff) AppState props Action
pagesComponent s = pagesComponent s =
case s.currentRoute of case s.currentRoute of
Just route -> Just route -> selectSpec route
selectSpec route Nothing -> selectSpec Home
Nothing ->
selectSpec Home
where where
selectSpec :: Routes -> Spec ( ajax :: AJAX selectSpec :: Routes -> Spec ( ajax :: AJAX
, console :: CONSOLE , console :: CONSOLE
......
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