[Annuaire] fix type errors

src/Gargantext/Components/App.purs

@@ -63,7 +63,7 @@ appCpt = R.hooksComponent "G.C.App.app" cpt where
           Texts sid nodeId  -> withSession sid $ \session -> forested $ textsLayout { nodeId, session, frontends }
           Lists sid nodeId  -> withSession sid $ \session -> forested $ listsLayout { nodeId, session }
           Dashboard sid _nodeId  -> withSession sid $ \session -> forested $ dashboardLayout {}
-          Annuaire sid nodeId    -> withSession sid $ \session -> forested $ annuaireLayout { nodeId, session }
+          Annuaire sid nodeId    -> withSession sid $ \session -> forested $ annuaireLayout { frontends, nodeId, session }
           UserPage sid nodeId    -> withSession sid $ \session -> forested $ userLayout { frontends, nodeId, session }
           ContactPage sid _aId nodeId -> withSession sid $ \session -> forested $ userLayout { frontends, nodeId, session }
           CorpusDocument sid corpusId listId nodeId ->

src/Gargantext/Components/Nodes/Annuaire.purs

@@ -117,8 +117,8 @@ pageCpt = R.staticComponent "LoadedAnnuairePage" cpt
         container = T.defaultContainer { title: "Annuaire" } -- TODO
         colNames = T.ColumnName <$> [ "", "Name", "Company", "Service", "Role"]
         wrapColElts = const identity
-        setParams f = snd pagePath $ \{nodeId, params: ps} ->
-          {params: f ps, nodeId: fst annuairePath}
+        setParams f = snd pagePath $ \pp@{nodeId, params: ps} ->
+          pp {params = f ps, nodeId = fst annuairePath}
         params = T.initialParams /\ setParams
 
 contactCells :: Session -> Frontends -> Maybe Contact -> Array R.Element