[Annuaire] fix router

src/Gargantext/Components/App.purs

@@ -48,7 +48,7 @@ appCpt = R.hooksComponent "G.C.App.app" cpt where
     showLogin  <- R.useState' false
     showCorpus <- R.useState' false
     
-    let forested          = forestLayout frontends (fst sessions) (fst route) (snd showLogin)
+    let forested      = forestLayout frontends (fst sessions) (fst route) (snd showLogin)
     let mCurrentRoute = fst route
     let backends      = fromFoldable defaultBackends
     let withSession = \sid f -> maybe' (\_ -> forested $ homeLayout EN) f $ Sessions.lookup sid (fst sessions)

src/Gargantext/Router.purs

@@ -21,10 +21,10 @@ router = oneOf
      , PGraphExplorer <$> (route "graph"     *> sid) <*> int
      , Texts          <$> (route "texts"     *> sid) <*> int
      , Lists          <$> (route "lists"     *> sid) <*> int
-  , Annuaire          <$> (route "annuaire"  *> sid) <*> int
-    , UserPage        <$> (route "user"      *> sid) <*> int
     , ContactPage     <$> (route "annuaire"   *> sid) <*> int
                           <*> (lit "contact" *> int)
+  , Annuaire          <$> (route "annuaire"  *> sid) <*> int
+    , UserPage        <$> (route "user"      *> sid) <*> int
   , Home              <$   lit ""
   ]
  where