Commit 04fe91cf authored by James Laver's avatar James Laver

really nail double /

parent 02c869e6
...@@ -244,8 +244,8 @@ type ChartOpts = ...@@ -244,8 +244,8 @@ type ChartOpts =
data NodePath = NodePath NodeType (Maybe Id) data NodePath = NodePath NodeType (Maybe Id)
nodePath :: NodePath -> String nodePath :: NodePath -> String
nodePath (NodePath t i) = nodeTypePath t <> "/" <> id nodePath (NodePath t i) = nodeTypePath t <> id
where id = maybe "" show i where id = maybe "" (\j -> "/" <> show j) i
data ChartType = Histo | Scatter | ChartPie | ChartTree data ChartType = Histo | Scatter | ChartPie | ChartTree
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment