timeplot 0.2.10 → 0.2.11

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

• Tools/TimePlot.hs +3/−1
• timeplot.cabal +1/−1

@@ -4,6 +4,7 @@ import Control.Monad import Control.Arrow import Data.List+import Data.Ord import Data.Maybe import qualified Data.Map as M import qualified Data.ByteString.Char8 as S@@ -228,8 +229,9 @@ makeChart :: forall t . TimeAxis t =>              (S.ByteString -> ChartKind t) -> [(t, S.ByteString, InEvent)] -> Renderable () makeChart chartKindF []                  = emptyRenderable-makeChart chartKindF events@((t0,_,_):_) = renderLayout1sStacked plots+makeChart chartKindF events0 = renderLayout1sStacked plots   where+    events@((t0,_,_):_) = sortBy (comparing (\(t,_,_)->t)) events0     track2events = reverse `fmap` foldl' insert M.empty [(s, (t, e)) | (t, s, e) <- events]       where insert m (s, r) = M.alter (Just . maybe [r] (r:)) s m 

@@ -1,5 +1,5 @@ Name: timeplot-Version: 0.2.10+Version: 0.2.11 License: BSD3 License-file: LICENSE Copyright: Eugene Kirpichov, 2009