eventlog2html 0.9.1 → 0.9.2

raw patch · 4 files changed

+14/−9 lines, 4 filesdep ~aesondep ~attoparsecdep ~bytestringPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: aeson, attoparsec, bytestring, hashtables, hvega

API changes (from Hackage documentation)

Files

• CHANGELOG +5/−1
• eventlog2html.cabal +3/−3
• src/Eventlog/Bands.hs +1/−1
• src/Eventlog/Detailed.hs +5/−4

@@ -1,6 +1,10 @@+0.9.2 release 2021-11-24++* Improve profile load speed (#150)+ 0.9.1 release 2021-06-21 -* Improve detailed mode for cost centre profiling (#195)+* Improve detailed mode for cost centre profiling (#146)  0.9 release 2021-03-17 

@@ -1,6 +1,6 @@ cabal-version:       2.4 Name:                eventlog2html-Version:             0.9.1+Version:             0.9.2 Synopsis:            Visualise an eventlog Description:         eventlog2html is a library for visualising eventlogs.                      At the moment, the intended use is to visualise eventlogs@@ -43,11 +43,11 @@     containers           >= 0.5.0 && < 0.7,     file-embed           >= 0.0.11 && < 0.1,     filepath             >= 1.4.2 && < 1.5,-    ghc-events           >= 0.16.0 && < 0.17,+    ghc-events           >= 0.16.0 && < 0.18,     hashtables           >= 1.2.3 && < 1.3,     hvega                >= 0.11.0 && < 0.12,     mtl                  >= 2.2.2 && < 2.3,-    optparse-applicative >= 0.14.3 && < 0.16,+    optparse-applicative >= 0.14.3 && < 0.17,     semigroups           >= 0.18 && < 0.20,     text                 >= 1.2.3 && < 1.3,     time                 >= 1.8.0 && < 2.0,

@@ -20,7 +20,7 @@ bands :: Header -> Map Bucket Int -> [Frame] -> (UArray Int Double, UArray (Int, Int) Double) bands h bs frames = runST $ do   times <- newArray (1, hCount h) 0-  vals  <- newArray ((-1,1), (size bs, hCount h)) 0+  vals  <- newArray ((-1,1), (Data.Map.size bs, hCount h)) 0   forM_ (zip [1 ..] frames) $ \(i, (Frame t ss)) -> do     writeArray times i t     forM_ ss $ \(Sample k v) -> do

@@ -42,7 +42,7 @@              Just ipes -> mkClosureInfo raw_bs ipes              Nothing   -> Map.map (\v -> (None, v)) raw_bs -  H.table ! A.id "closure_table" ! A.class_ "table table-striped closureTable" $ do+  H.table ! A.id "closure_table" ! A.class_ "table table-striped closureTable" ! A.hidden "true" $ do     H.thead $ H.tr $ do       H.th "Profile"       numTh "n"@@ -58,7 +58,7 @@       numTh "Intercept"       numTh "Slope"       numTh "Fit (R²)"-    Map.foldrWithKey (\k a res -> renderEntry k a >> res) (mempty :: Html) cs+    Map.foldr (\a res -> renderEntry a >> res) (mempty :: Html) cs   H.script $ preEscapedToHtml initTable   where     numTh lbl = H.th ! H.dataAttribute "sortas" "numeric" $ lbl@@ -89,7 +89,7 @@       H.td ""       H.td "" -    renderEntry (Bucket k) (mitl, (n, BucketInfo shortDesc _ tot std mg)) = do+    renderEntry (mitl, (n, BucketInfo shortDesc _ tot std mg)) = do           let (a, b, r2) =                 case mg of                   Nothing -> ("", "", "")@@ -126,7 +126,8 @@         \});\         \$.fn.sparkline.defaults.common.chartRangeMin = 0;\         \$.fn.sparkline.defaults.common.width = 200;\-        \$('.linechart').sparkline()\+        \$('.linechart').sparkline();\+        \$(\".closureTable\").removeAttr(\"hidden\")\ \});"  getBandValues :: Int