{-# LANGUAGE TemplateHaskell #-}
module Graphics.Rendering.Chart.Plot.Hidden(
PlotHidden(..),
plot_hidden_x_values,
plot_hidden_y_values
) where
import Control.Lens
import Graphics.Rendering.Chart.Plot.Types
data PlotHidden x y = PlotHidden {
_plot_hidden_x_values :: [x],
_plot_hidden_y_values :: [y]
}
instance ToPlot PlotHidden where
toPlot ph = Plot {
_plot_render = \_ -> return (),
_plot_legend = [],
_plot_all_points = (_plot_hidden_x_values ph, _plot_hidden_y_values ph)
}
$( makeLenses ''PlotHidden )