wrecker 1.0.0.1 → 1.0.0.2

raw patch · 5 files changed

+18/−19 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

src/Wrecker.hs +8/−6
src/Wrecker/Logger.hs +3/−6
src/Wrecker/Runner.hs +4/−4
src/Wrecker/Statistics.hs +2/−2
wrecker.cabal +1/−1

src/Wrecker.hs view

@@ -9,22 +9,24 @@  See https://github.com/lorenzo/wrecker#readme for more information. -}-module Wrecker -- * Entry Points-    ( defaultMain+module Wrecker+    (+    -- * Entry Points+    defaultMain     , run     , runOne-               -- * Wrecker State+    -- * Wrecker State     , Environment(..)-               -- * Recorder+    -- * Recorder     , Recorder     , record-               -- * Options+    -- * Options     , Options(..)     , URLDisplay(..)     , RunType(..)     , DisplayMode(..)     , defaultOptions-               -- Output Statistics+    -- Output Statistics     , AllStats(..)     , ResultStatistics(..)     ) where

src/Wrecker/Logger.hs view

@@ -28,12 +28,9 @@      goes over the max size. -} newLogger ::-       Handle-          -- ^ The 'Handle' to log to.-    -> Int-          -- ^ Max buffer size-    -> LogLevel-          -- ^ Minimum log level to log.+       Handle -- ^ The 'Handle' to log to.+    -> Int -- ^ Max buffer size+    -> LogLevel -- ^ Minimum log level to log.     -> IO Logger newLogger handle maxSize currentLevel = do     (inChan, outChan) <- U.newChan maxSize

src/Wrecker/Runner.hs view

@@ -39,10 +39,10 @@ -- | The 'Environment' holds state necessary to make and record HTTP calls. data Environment = Environment     { recorder :: Recorder-  -- ^ The 'Recorder' can be used with the 'record' function to ... record times.+      -- ^ The 'Recorder' can be used with the 'record' function to ... record times.     , context :: ConnectionContext-  -- ^ Provided as a convience, this is a shared TLS context to reuse for-  --   better performance.+      -- ^ Provided as a convience, this is a shared TLS context to reuse for+      --   better performance.     }  {- | Typically 'wrecker' will control benchmarking actions. However in some situations@@ -122,7 +122,7 @@     context <- Connection.initConnectionContext     sampler <- newNextRef emptyAllStats     logger <- newStdErrLogger 100000 logLevel-  -- Collect events and+    -- Collect events and     forkIO $         handle (\(e :: SomeException) -> void $ logError logger $ show e) $         collectEvent logger sampler recorder

src/Wrecker/Statistics.hs view

@@ -32,9 +32,9 @@ -- | These are the data Statistics = Statistics     { sHistogram :: TD.TDigest 5-  -- ^ A histogram of times+      -- ^ A histogram of times     , sTotal :: {-# UNPACK #-}!Double-  -- ^ The total time+      -- ^ The total time     } deriving (Show)  -- | Extract the mean

wrecker.cabal view

@@ -1,5 +1,5 @@ name:                wrecker-version:             1.0.0.1+version:             1.0.0.2 synopsis:            An HTTP Performance Benchmarker description:  'wrecker' is a library and executable for creating HTTP benchmarks. It is designed for