timeplot 1.0.31 → 1.0.32

raw patch · 2 files changed

+11/−5 lines, 2 files

Files

• Graphics/Rendering/Chart/Event.hs +10/−4
• timeplot.cabal +1/−1

@@ -1,4 +1,5 @@ {-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE CPP #-} module Graphics.Rendering.Chart.Event (     PlotEvent(..),     Event(..),@@ -22,6 +23,11 @@ import Data.Default import Control.Monad +#if ! MIN_VERSION_Chart(1,7,0)+-- legacy map for Chart<1.7+#    define BackendProgram ChartBackend+#endif+ data Event t e = LongEvent (t,Bool) (t,Bool) e  -- ^ An event that has a beginning and an end.                                                  --   True = "known explicitly", False = "implicit" (e.g. imposed by axis bounds)                | PulseEvent t e   -- ^ A zero-length event@@ -72,20 +78,20 @@       _plot_all_points = plotAllPointsEvent p     } -renderPlotLegendEvent :: PlotEvent t e -> Rect -> ChartBackend ()+renderPlotLegendEvent :: PlotEvent t e -> Rect -> BackendProgram () renderPlotLegendEvent p r = return ()  -filledRect :: FillStyle -> Rect -> ChartBackend ()+filledRect :: FillStyle -> Rect -> BackendProgram () filledRect fs r = withFillStyle fs $ fillPath (rectPath r) -framedRect :: LineStyle -> Rect -> ChartBackend ()+framedRect :: LineStyle -> Rect -> BackendProgram () framedRect ls r = withLineStyle ls $ strokePath (rectPath r)  barHeight = 7 pulseHeight = 15 -renderPlotEvent :: PlotEvent t e -> PointMapFn t e  -> ChartBackend ()+renderPlotEvent :: PlotEvent t e -> PointMapFn t e  -> BackendProgram () renderPlotEvent p pmap = do       withLineStyle (p ^. plot_event_track_linestyle) $ do         strokePointPath [Point x0 cy, Point x1 cy]

@@ -1,5 +1,5 @@ name: timeplot-version: 1.0.31+version: 1.0.32 cabal-version: >=1.6 build-type: Simple license: BSD3