Source

pronk / lib / Network / HTTP / LoadTest / Types.hs

Diff from to

lib/Network/HTTP/LoadTest/Types.hs

 import Control.Exception (Exception, IOException, SomeException, try)
 import Data.Aeson.Types (Value(..), FromJSON(..), ToJSON(..), (.:), (.=), object)
 import Data.Bits (xor)
+import Data.Conduit (ResourceT)
 import Data.Data (Data)
 import Data.Hashable (Hashable(hash))
 import Data.Typeable (Typeable)
 import qualified Data.Text as T
 import qualified Data.Vector as V
 import qualified Data.Vector.Generic as G
-import qualified Data.Vector.Unboxed as U
 import Control.Monad.Trans.Resource (ResourceT)
 
 newtype Req = Req {
     , latency99 :: !Double
     , latency999 :: !Double
     , latValues :: V.Vector Summary
-    , throughput :: !a
-    , throughput10 :: !Double
-    , thrValues :: U.Vector Double
+    , throughput :: !Double
     } deriving (Eq, Show, Typeable, Data)
 
 instance (NFData a) => NFData (Analysis a) where
                           , "latency999" .= latency999
                           , "latValues" .= latValues
                           , "throughput" .= throughput
-                          , "throughput10" .= throughput10
-                          , "thrValues" .= thrValues
                           ]
 
 instance (FromJSON a) => FromJSON (Analysis a) where
                            v .: "latency99" <*>
                            v .: "latency999" <*>
                            v .: "latValues" <*>
-                           v .: "throughput" <*>
-                           v .: "throughput10" <*>
-                           v .: "thrValues"
+                           v .: "throughput"
     parseJSON _ = empty