module Graphics.Rendering.Plot.Light.PlotTypes.Plot1D (plotFun) where import Graphics.Rendering.Plot.Light.Internal plotFun f = fmap f' where f' p@(Point x _) = LabeledPoint p (f x)