Browses the given Model for its Charts and then returns them in a list.
"""
chartsOf :: Model -> <ReadGraph> [Chart]
-chartsOf model = recurse (toResource model)
+chartsOf model = recurse model
where
recurse r = do
- cs = resourceChildrenOf r
- charts = map fromResource $ filter isChart cs
+ cs = children r
+ charts = filter isChart cs
chartGrp = filter isChartGroup cs
charts + concatMap recurse chartGrp
isChart r = isInstanceOf r CHART.TimeSeriesChart