nail double /

src/Gargantext/Components/Tree.purs

@@ -27,7 +27,7 @@ import Web.File.FileList (FileList, item)
 import Web.File.FileReader.Aff (readAsText)
 
 import Gargantext.Config.REST (get, put, post, postWwwUrlencoded, delete)
-import Gargantext.Ends (Frontends(..), url)
+import Gargantext.Ends (Frontends, url)
 import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes as Routes
 import Gargantext.Routes (AppRoute, SessionRoute(..))
@@ -211,7 +211,7 @@ nodeMainSpan :: (Action -> Aff Unit)
              -> Session
              -> Frontends
              -> R.Element
-nodeMainSpan d p folderOpen session (Frontends frontends) = R.createElement el p []
+nodeMainSpan d p folderOpen session frontends = R.createElement el p []
   where
     el = R.hooksComponent "NodeMainSpan" cpt
     cpt {id, name, nodeType, mCurrentRoute} _ = do
@@ -222,7 +222,7 @@ nodeMainSpan d p folderOpen session (Frontends frontends) = R.createElement el p
 
       pure $ H.span (dropProps droppedFile isDragOver)
         [ folderIcon folderOpen
-        , H.a { href: (url frontends.app (NodePath nodeType (Just id)))
+        , H.a { href: (url frontends (NodePath nodeType (Just id)))
               , style: {marginLeft: "22px"}
               }
           [ nodeText {isSelected: (mCorpusId mCurrentRoute) == (Just id), name} ]

src/Gargantext/Ends.purs

@@ -80,6 +80,12 @@ instance toUrlFrontendAppRoute :: ToUrl Frontend R.AppRoute where
 -- | The currently selected App and Static configurations
 newtype Frontends = Frontends { app :: Frontend, static :: Frontend }
 
+instance toUrlFrontendsRoutes :: ToUrl Frontends R.AppRoute where
+  toUrl f r = appUrl f (R.appPath r)
+
+instance toUrlFrontendsNodePath :: ToUrl Frontends NodePath where
+  toUrl (Frontends {app}) np = frontendUrl app (nodePath np)
+
 -- | Creates an app url from a Frontends and the path as a string
 appUrl :: Frontends -> String -> String
 appUrl (Frontends {app}) = frontendUrl app
@@ -88,9 +94,6 @@ appUrl (Frontends {app}) = frontendUrl app
 staticUrl :: Frontends -> String -> String
 staticUrl (Frontends {static}) = frontendUrl static
 
-instance toUrlFrontendsRoutes :: ToUrl Frontends R.AppRoute where
-  toUrl f r = appUrl f (R.appPath r)
-
 sessionPath :: R.SessionRoute -> String
 sessionPath (R.Tab t i) = sessionPath (R.NodeAPI Node i) <> "/" <> showTabType' t
 sessionPath (R.Children n o l s i) = root <> "children?type=" <> show n <> offsetUrl o <> limitUrl l <> orderUrl s
@@ -141,8 +144,6 @@ sessionPath (R.Chart {chartType, tabType} i) =
       <> "&listType=GraphTerm" -- <> show listId
       -- <> maybe "" (\x -> "&limit=" <> show x) limit
 
-
-
 ------- misc routing stuff
 
 limitUrl :: Limit -> String

src/Gargantext/Types.purs

@@ -245,7 +245,7 @@ data NodePath = NodePath NodeType (Maybe Id)
 
 nodePath :: NodePath -> String
 nodePath (NodePath t i) = nodeTypePath t <> "/" <> id
-  where id = maybe "" (\j -> "/" <> show j) i
+  where id = maybe "" show i
 
 data ChartType = Histo | Scatter | ChartPie | ChartTree