Folder view: fix routes

src/Gargantext/Routes.purs

@@ -106,18 +106,20 @@ appPath (RouteFrameCode s i)  = "code/"      <> show s <> "/" <> show i
 appPath (RouteFile s i)       = "file/"      <> show s <> "/" <> show i
 
 nodeTypeAppRoute :: NodeType -> SessionId -> Int -> Maybe AppRoute
-nodeTypeAppRoute GT.Annuaire s i      = Just $ Annuaire s i
-nodeTypeAppRoute GT.Corpus s i        = Just $ Corpus s i
-nodeTypeAppRoute GT.Dashboard s i     = Just $ Dashboard s i
-nodeTypeAppRoute GT.Folder s i        = Just $ Folder s i
-nodeTypeAppRoute GT.FolderPrivate s i = Just $ FolderPrivate s i
-nodeTypeAppRoute GT.FolderPublic s i  = Just $ FolderPublic s i
-nodeTypeAppRoute GT.FolderShared s i  = Just $ FolderShared s i
-nodeTypeAppRoute GT.Graph s i         = Just $ PGraphExplorer s i
-nodeTypeAppRoute GT.NodeContact s i   = Just $ Annuaire s i
-nodeTypeAppRoute GT.NodeFile s i      = Just $ RouteFile s i
-nodeTypeAppRoute GT.NodeList s i      = Just $ Lists s i
-nodeTypeAppRoute GT.NodeUser s i      = Just $ UserPage s i
-nodeTypeAppRoute GT.Team s i          = Just $ Team s i
-nodeTypeAppRoute GT.Texts s i         = Just $ Texts s i
-nodeTypeAppRoute _ _ _                = Nothing
+nodeTypeAppRoute GT.Annuaire s i       = Just $ Annuaire s i
+nodeTypeAppRoute GT.Corpus s i         = Just $ Corpus s i
+nodeTypeAppRoute GT.Dashboard s i      = Just $ Dashboard s i
+nodeTypeAppRoute GT.Folder s i         = Just $ Folder s i
+nodeTypeAppRoute GT.FolderPrivate s i  = Just $ FolderPrivate s i
+nodeTypeAppRoute GT.FolderPublic s i   = Just $ FolderPublic s i
+nodeTypeAppRoute GT.FolderShared s i   = Just $ FolderShared s i
+nodeTypeAppRoute GT.Graph s i          = Just $ PGraphExplorer s i
+nodeTypeAppRoute GT.NodeContact s i    = Just $ Annuaire s i
+nodeTypeAppRoute GT.NodeFile s i       = Just $ RouteFile s i
+nodeTypeAppRoute GT.NodeList s i       = Just $ Lists s i
+nodeTypeAppRoute GT.NodeUser s i       = Just $ UserPage s i
+nodeTypeAppRoute GT.Team s i           = Just $ Team s i
+nodeTypeAppRoute GT.Texts s i          = Just $ Texts s i
+nodeTypeAppRoute GT.NodeFrameWrite s i = Just $ RouteFrameWrite s i
+nodeTypeAppRoute GT.NodeFrameCalc s i  = Just $ RouteFrameCalc s i
+nodeTypeAppRoute _ _ _                 = Nothing