really nail double /

04fe91cf · James Laver · 02c869e6 · 04fe91cf
Commit 04fe91cf authored Sep 30, 2019 by James Laver
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Types.purs src/Gargantext/Types.purs +2 -2

No files found.
--- a/src/Gargantext/Types.purs
+++ b/src/Gargantext/Types.purs
@@ -244,8 +244,8 @@ type ChartOpts =
 data NodePath = NodePath NodeType (Maybe Id)

 nodePath :: NodePath -> String
-nodePath (NodePath t i) = nodeTypePath t <> "/" <> id
-  where id = maybe "" show i
+nodePath (NodePath t i) = nodeTypePath t <> id
+  where id = maybe "" (\j -> "/" <> show j) i

 data ChartType = Histo | Scatter | ChartPie | ChartTree