hp2any-core 0.10.0 → 0.10.1

raw patch · 3 files changed

+15/−12 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGES +3/−0
• Profiling/Heap/Read.hs +9/−9
• hp2any-core.cabal +3/−3

@@ -1,3 +1,6 @@+0.10.1 - 110413+* cleaned up warnings+ 0.10.0 - 090812 * changed processToProfile to accept parameters as a list of strings * added some preliminary Win32 code that still doesn't work due to

@@ -12,7 +12,7 @@     , LoadProgress     , ProfilingStop     , readProfileAsync-    -- * Profiling running applications +    -- * Profiling running applications     , ProfileReader     , ProfilingType(..)     , ProfilingCommand@@ -39,7 +39,7 @@ -}  -- Data structures-import Data.ByteString.Char8 (ByteString)+--import Data.ByteString.Char8 (ByteString) import qualified Data.ByteString.Char8 as S import Data.ByteString.Internal as SI import Data.List@@ -162,7 +162,7 @@                    RawCommand prg args -> intercalate " " (prg:args)   zt <- getZonedTime   ref <- newIORef emptyProfile-               { prJob = case prog of +               { prJob = case prog of                            Local desc -> getCmd desc                            Remote addr -> addr                -- The time format is deliberately different from the@@ -227,7 +227,7 @@                       -- Getting rid of the line break after the first                       -- line.                       next = pass (S.drop 1 rest)-      +                   case parseHpLine line of                     -- Initialising a new empty sample.                     BeginSample _ -> next idmap []@@ -242,14 +242,14 @@                       when newid $ sink (SinkId ccid ccname)                       next idmap' ((ccid,cost):smp)                     _ -> next idmap smp-      +                 -- If there's no line known to be full while the other                 -- process is still running, we keep trying to fetch more                 -- data.                 Nothing -> do                   -- Checking if there is still hope for more data.                   slaveCode <- getProcessExitCode phdl-      +                   if slaveCode == Nothing then do                       eof <- hIsEOF hpFile                       if eof then do@@ -269,9 +269,9 @@ -}                     -- The other process ended, let's notify the callback.                     else sink SinkStop-      +         pass S.empty T.empty []-      +       return (Just (profileStop tid sink,Local phdl))  profileCallback (Remote server) sink = do@@ -299,7 +299,7 @@   killThread tid   -- The sink is notified asynchronously, since it might be a blocking   -- operation (like the MVar operations used by the grapher).-  forkIO (sink SinkStop)+  _ <- forkIO (sink SinkStop)   return ()  tryRepeatedly :: IO a -> Int -> Int -> IO (Maybe a)

@@ -1,5 +1,5 @@ Name:          hp2any-core-Version:       0.10.0+Version:       0.10.1 Cabal-Version: >= 1.2 Synopsis:      Heap profiling helper library Category:      profiling, development, utils@@ -11,8 +11,8 @@   archived profiler output and present it in a structured form.  Author:        Patai Gergely-Maintainer:    Patai Gergely (patai@iit.bme.hu)-Copyright:     (c) 2009, Patai Gergely+Maintainer:    Patai Gergely (patai.gergely@gmail.com)+Copyright:     (c) 2009-2011, Patai Gergely Homepage:      http://www.haskell.org/haskellwiki/Hp2any License:       BSD3 License-File:  LICENSE