1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
module Network.TLS.Measurement (
Measurement (..),
newMeasurement,
addBytesReceived,
addBytesSent,
resetBytesCounters,
incrementNbHandshakes,
) where
import Network.TLS.Imports
-- | record some data about this connection.
data Measurement = Measurement
{ nbHandshakes :: Word32
-- ^ number of handshakes on this context
, bytesReceived :: Word32
-- ^ bytes received since last handshake
, bytesSent :: Word32
-- ^ bytes sent since last handshake
}
deriving (Show, Eq)
newMeasurement :: Measurement
newMeasurement =
Measurement
{ nbHandshakes = 0
, bytesReceived = 0
, bytesSent = 0
}
addBytesReceived :: Int -> Measurement -> Measurement
addBytesReceived sz measure =
measure{bytesReceived = bytesReceived measure + fromIntegral sz}
addBytesSent :: Int -> Measurement -> Measurement
addBytesSent sz measure =
measure{bytesSent = bytesSent measure + fromIntegral sz}
resetBytesCounters :: Measurement -> Measurement
resetBytesCounters measure = measure{bytesReceived = 0, bytesSent = 0}
incrementNbHandshakes :: Measurement -> Measurement
incrementNbHandshakes measure =
measure{nbHandshakes = nbHandshakes measure + 1}
|
