hp2pretty 0.6 → 0.7
raw patch · 5 files changed
+18/−11 lines, 5 files
Files
- LICENSE +1/−1
- NEWS +7/−0
- hp2pretty.cabal +6/−6
- src/SVG.hs +1/−1
- src/Total.hs +3/−3
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c)2010, Claude Heiland-Allen+Copyright (c)2010,2011,2015,2017 Claude Heiland-Allen All rights reserved.
NEWS view
@@ -1,3 +1,10 @@+v0.7 2017-06-27 bugfix++A bugfix in header parsing (thanks to Pepe Iborra). An+adjustment to text rendering (no longer stroked, but just+filled). HTTPS for urls.++ v0.6 2015-04-08 text ByteString is replaced by Text, fixing bugs with Unicode.
hp2pretty.cabal view
@@ -1,5 +1,5 @@ Name: hp2pretty-Version: 0.6+Version: 0.7 Synopsis: generate pretty graphs from heap profiles Description: hp2pretty is a rewrite of hp2ps, implemented in Haskell, with the aims of being maintainable, with more flexible output, and@@ -28,12 +28,12 @@ cost label, which should make colours have stable semantics across program runs. -Homepage: http://code.mathr.co.uk/hp2pretty+Homepage: https://code.mathr.co.uk/hp2pretty License: BSD3 License-file: LICENSE Author: Claude Heiland-Allen Maintainer: claude@mathr.co.uk-Copyright: (C) 2010,2011,2015 Claude Heiland-Allen+Copyright: (C) 2010,2011,2015,2017 Claude Heiland-Allen Category: Development Build-type: Simple Extra-source-files: BUGS NEWS README THANKS@@ -55,9 +55,9 @@ Source-repository head type: git- location: http://code.mathr.co.uk/hp2pretty.git+ location: https://code.mathr.co.uk/hp2pretty.git Source-repository this type: git- location: http://code.mathr.co.uk/hp2pretty.git- tag: v0.6+ location: https://code.mathr.co.uk/hp2pretty.git+ tag: v0.7
src/SVG.hs view
@@ -28,7 +28,7 @@ showAnchor Start = "start" showAnchor Middle = "middle" showAnchor End = "end"- in ["<text "] ++ coords ++ [" font-size='", showF s, "' text-anchor='", showAnchor a, "'>"] ++ map escape inner ++ ["</text>\n"]+ in ["<text stroke='none' "] ++ coords ++ [" font-size='", showF s, "' text-anchor='", showAnchor a, "'>"] ++ map escape inner ++ ["</text>\n"] escape :: Text -> Text escape = T.concatMap escapeChar
src/Total.hs view
@@ -4,8 +4,8 @@ import Control.Monad.State.Strict (State(), execState, get, put) import Data.List (foldl') import Data.Map (Map, empty, lookup, insert, alter)-import Prelude hiding (lookup, lines, words, drop, length)-import Data.Text (Text, pack, unpack, lines, words, isPrefixOf, drop, length)+import Prelude hiding (init, lookup, lines, words, drop, length)+import Data.Text (Text, init, pack, unpack, lines, words, isPrefixOf, drop, length) import Data.Attoparsec.Text (parseOnly, double) import Types@@ -46,7 +46,7 @@ header :: Text -> Text -> Text header name h = if name `isPrefixOf` h- then pack . read . unpack . drop (length name + 1) $ h+ then init . drop (length name + 2) $ h -- drop the name and the quotes else error $ "Parse.header: expected " ++ unpack name chunkSamples :: [Text] -> [[Text]]