[READ] cosmetics

src/Gargantext/Layout.purs

@@ -33,29 +33,27 @@ import Unsafe.Coerce (unsafeCoerce)
 pagesComponent :: forall props eff. AppState -> Spec (E eff) AppState props Action
 pagesComponent s =
   case s.currentRoute of
-    Just route ->
-      selectSpec route
-    Nothing ->
-      selectSpec Home
+    Just route -> selectSpec route
+    Nothing    -> selectSpec Home
   where
     selectSpec :: Routes -> Spec ( ajax    :: AJAX
                                  , console :: CONSOLE
                                  , dom     :: DOM
                                  | eff
                                  ) AppState props Action
-    selectSpec CorpusAnalysis = layout0 $ focus _corpusState  _corpusAction CA.spec'
-    selectSpec Login      = focus _loginState _loginAction LN.renderSpec
-    selectSpec Home        = layout0 $ focus _landingState   _landingAction   (L.layoutLanding EN)
-    selectSpec AddCorpus  = layout0 $ focus _addCorpusState _addCorpusAction AC.layoutAddcorpus
-    selectSpec DocView    = layout0 $ focus _docViewState   _docViewAction   DV.layoutDocview
-    selectSpec (UserPage i) = layout0 $ focus _userPageState  _userPageAction  U.layoutUser
-    selectSpec (DocAnnotation i)   = layout0 $ focus _docAnnotationViewState  _docAnnotationViewAction  D.docview
-    selectSpec Tabview   = layout0 $ focus _tabviewState  _tabviewAction  TV.tab1
+    selectSpec CorpusAnalysis    = layout0 $ focus _corpusState  _corpusAction CA.spec'
+    selectSpec Login             = focus _loginState _loginAction LN.renderSpec
+    selectSpec Home              = layout0 $ focus _landingState   _landingAction   (L.layoutLanding EN)
+    selectSpec AddCorpus         = layout0 $ focus _addCorpusState _addCorpusAction AC.layoutAddcorpus
+    selectSpec DocView           = layout0 $ focus _docViewState   _docViewAction   DV.layoutDocview
+    selectSpec (UserPage i)      = layout0 $ focus _userPageState  _userPageAction  U.layoutUser
+    selectSpec (DocAnnotation i) = layout0 $ focus _docAnnotationViewState  _docAnnotationViewAction  D.docview
+    selectSpec Tabview           = layout0 $ focus _tabviewState  _tabviewAction  TV.tab1
     -- To be removed
-    selectSpec SearchView = layout0 $ focus _searchState _searchAction  S.searchSpec
-    selectSpec NGramsTable  = layout0 $ focus _ngState _ngAction  NG.ngramsTableSpec
-    selectSpec PGraphExplorer = focus _graphExplorerState _graphExplorerAction  GE.specOld
-    selectSpec Dashboard = layout0 $ focus _dashBoardSate _dashBoardAction Dsh.layoutDashboard
+    selectSpec SearchView        = layout0 $ focus _searchState _searchAction  S.searchSpec
+    selectSpec NGramsTable       = layout0 $ focus _ngState _ngAction  NG.ngramsTableSpec
+    selectSpec PGraphExplorer    = focus _graphExplorerState _graphExplorerAction  GE.specOld
+    selectSpec Dashboard         = layout0 $ focus _dashBoardSate _dashBoardAction Dsh.layoutDashboard
 
     -- selectSpec _ = simpleSpec defaultPerformAction defaultRender