timeplot 1.0.8 → 1.0.9
raw patch · 3 files changed
+5/−5 lines, 3 files
Files
- Tools/TimePlot/Plots.hs +3/−3
- Tools/TimePlot/Render.hs +1/−1
- timeplot.cabal +1/−1
Tools/TimePlot/Plots.hs view
@@ -61,7 +61,7 @@ barsValues = vals, barsStyles = [ (solidFillStyle c, Nothing) | c <- transparent:map opaque colors], - barsTitles = titles + barsTitles = "":titles } plotLines :: String -> [(S.ByteString, [(LocalTime,Double)])] -> PlotData @@ -153,7 +153,7 @@ fmap (\tqs -> plotTrackBars tqs quantileTitles name colors) $ I.collect where - quantileTitles = [""]++[show p1++".."++show p2++"%" | p1 <- percents | p2 <- tail percents] + quantileTitles = [show p1++".."++show p2++"%" | p1 <- percents | p2 <- tail percents] percents = map (floor . (*100.0)) $ [0.0] ++ qs ++ [1.0] diffs xs = zipWith (-) xs (0:xs) @@ -249,7 +249,7 @@ binAreas :: I.StreamSummary (LocalTime,S.ByteString,Edge) [(LocalTime, M.Map S.ByteString Double)] binAreas = fmap (map (\((t1,t2),m) -> (t1,m))) $ edges2binsSummary bs t0 t1 - h tracks binAreas = (plotTrackBars barsData ("":map S.unpack tracks) name colors) { barsStyle = BarsStacked } + h tracks binAreas = (plotTrackBars barsData (map S.unpack tracks) name colors) { barsStyle = BarsStacked } where barsData = [(t, 0:map (f m . flip (M.findWithDefault 0) m) tracks) | (t,m) <- binAreas]
Tools/TimePlot/Render.hs view
@@ -27,7 +27,7 @@ where plot = plot_bars_values ^= barsValues p $ plot_bars_item_styles ^= barsStyles p $ plot_bars_style ^= barsStyle p $ - plot_bars_titles ^= "":barsTitles p $ + plot_bars_titles ^= barsTitles p $ ourPlotBars dataToPlot commonTimeAxis p@PlotEventData{} = withAnyOrdinate $ layoutWithTitle commonTimeAxis [toPlot plot] (plotName p) False where plot = plot_event_data ^= eventData p $
timeplot.cabal view
@@ -1,5 +1,5 @@ name: timeplot-version: 1.0.8+version: 1.0.9 cabal-version: >=1.6 build-type: Simple license: BSD3