@@ -25,33 +25,31 @@ module Cardano.Benchmarking.Tracer
25
25
)
26
26
where
27
27
28
- import GHC.Generics
28
+ import Cardano.Api
29
+
30
+ import Cardano.Benchmarking.LogTypes
31
+ import Cardano.Benchmarking.Types
32
+ import Cardano.Benchmarking.Version as Version
33
+ import Cardano.Logging
34
+ import Cardano.Node.Startup
35
+ import Ouroboros.Network.IOManager (IOManager )
29
36
37
+ import Control.Monad (forM , guard )
30
38
import Data.Aeson as A
31
39
import qualified Data.Aeson.KeyMap as KeyMap
32
40
import Data.Kind
33
- import qualified Data.Map.Strict as Map
34
-
35
- import Control.Monad (forM , guard )
36
41
import Data.List (find )
42
+ import qualified Data.Map.Strict as Map
37
43
import Data.Maybe (fromMaybe )
38
44
import Data.Proxy
39
45
import Data.Text (Text )
40
46
import qualified Data.Text as Text
41
47
import Data.Time.Clock
48
+ import GHC.Generics
42
49
43
- import Ouroboros.Network.IOManager (IOManager )
44
50
import Trace.Forward.Utils.DataPoint
45
51
import Trace.Forward.Utils.TraceObject
46
52
47
- import Cardano.Api
48
- import Cardano.Logging
49
- import Cardano.Node.Startup
50
-
51
- import Cardano.Benchmarking.LogTypes
52
- import Cardano.Benchmarking.Types
53
- import Cardano.Benchmarking.Version as Version
54
-
55
53
pattern TracerNameBench :: Text
56
54
pattern TracerNameBench = " Benchmark"
57
55
pattern TracerNameSubmit :: Text
@@ -178,6 +176,7 @@ initialTraceConfig = TraceConfig {
178
176
, tcNodeName = Nothing
179
177
, tcPeerFrequency = Just 2000 -- Every 2 seconds
180
178
, tcResourceFrequency = Just 1000 -- Every second
179
+ , tcMetricsPrefix = Nothing
181
180
}
182
181
where
183
182
setMaxDetail :: Text -> ([Text ], [ConfigOption ])
0 commit comments