@@ -126,35 +126,35 @@ data ModuleAutoRestart
126
126
deriving (Eq , Show )
127
127
128
128
data BlockVersionData = BlockVersionData
129
- { bvdScriptVersion :: ! Int
129
+ { bvdScriptVersion :: ! Word16
130
130
, bvdSlotDuration :: ! Int
131
- , bvdMaxBlockSize :: ! Int
132
- , bvdMaxHeaderSize :: ! Int
133
- , bvdMaxTxSize :: ! Int
134
- , bvdMaxProposalSize :: ! Int
135
- , bvdMpcThd :: ! Float
136
- , bvdHeavyDelThd :: ! Float
137
- , bvdUpdateVoteThd :: ! Float
138
- , bvdUpdateProposalThd :: ! Float
139
- , bvdUpdateImplicit :: ! Int
131
+ , bvdMaxBlockSize :: ! Natural
132
+ , bvdMaxHeaderSize :: ! Natural
133
+ , bvdMaxTxSize :: ! Natural
134
+ , bvdMaxProposalSize :: ! Natural
135
+ , bvdMpcThd :: ! Word64
136
+ , bvdHeavyDelThd :: ! Word64
137
+ , bvdUpdateVoteThd :: ! Word64
138
+ , bvdUpdateProposalThd :: ! Word64
139
+ , bvdUpdateImplicit :: ! Word64
140
140
, bvdSoftforkRule :: ! SoftForkRule
141
141
, bvdTXFeePolicy :: ! TxFeePolicy
142
- , bvdUnlockStakeEpoch :: ! Integer
142
+ , bvdUnlockStakeEpoch :: ! Word64
143
143
} deriving (Eq , Show )
144
144
145
145
data SoftForkRule = SoftForkRule
146
- { sfrInitThd :: ! Float
147
- , sfrMinThd :: ! Float
148
- , sfrThdDecrement :: ! Float
146
+ { sfrInitThd :: ! Word64
147
+ , sfrMinThd :: ! Word64
148
+ , sfrThdDecrement :: ! Word64
149
149
} deriving (Eq , Show )
150
150
151
151
data TxFeePolicy = TxFeePolicy
152
152
{ txfTXSizeLinear :: ! TxSizeLinear
153
153
} deriving (Eq , Show )
154
154
155
155
data TxSizeLinear = TxSizeLinear
156
- { txsA :: ! Int
157
- , txsB :: ! Float
156
+ { txsA :: ! Word64
157
+ , txsB :: ! Word64
158
158
} deriving (Eq , Show )
159
159
160
160
data ProtocolConstants = ProtocolConstants
0 commit comments