Skip to content
This repository was archived by the owner on Aug 18, 2020. It is now read-only.

Commit 7644bd3

Browse files
intricateintricate
committed
[CO-410] Change naming
1 parent fed2911 commit 7644bd3

File tree

27 files changed

+84
-84
lines changed

27 files changed

+84
-84
lines changed

‎chain/bench/block-bench.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ import Test.Pos.Chain.Block.Arbitrary.Generate (generateMainBlock)
2929
-- 'MainBlock'.
3030

3131
pm :: ProtocolMagic
32-
pm = ProtocolMagic (ProtocolMagicId 0) NMMustBeNothing
32+
pm = ProtocolMagic (ProtocolMagicId 0) RequiresNoMagic
3333

3434
-- | A test subject: a MainBlock, and its various components, each paired with
3535
-- its serialization.

‎chain/test/Test/Pos/Chain/Block/Bi.hs

+6-6
Original file line numberDiff line numberDiff line change
@@ -233,7 +233,7 @@ exampleBlockHeaderMain =
233233
exampleMainBody exampleMainExtraHeaderData
234234
where
235235
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
236-
, getRequiresNetworkMagic = NMMustBeNothing
236+
, getRequiresNetworkMagic = RequiresNoMagic
237237
}
238238

239239
exampleBlockSignature :: BlockSignature
@@ -243,7 +243,7 @@ exampleBlockSignature = BlockSignature (sign pm
243243
exampleMainToSign)
244244
where
245245
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 7
246-
, getRequiresNetworkMagic = NMMustBeNothing
246+
, getRequiresNetworkMagic = RequiresNoMagic
247247
}
248248

249249
exampleBlockPSignatureLight :: BlockSignature
@@ -253,7 +253,7 @@ exampleBlockPSignatureLight = BlockPSignatureLight sig
253253
[delegateSk, issuerSk] = exampleSecretKeys 5 2
254254
psk = createPsk pm issuerSk (toPublic delegateSk) exampleLightDlgIndices
255255
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 2
256-
, getRequiresNetworkMagic = NMMustBeNothing
256+
, getRequiresNetworkMagic = RequiresNoMagic
257257
}
258258

259259
exampleBlockPSignatureHeavy :: BlockSignature
@@ -263,7 +263,7 @@ exampleBlockPSignatureHeavy = BlockPSignatureHeavy sig
263263
[delegateSk, issuerSk] = exampleSecretKeys 5 2
264264
psk = createPsk pm issuerSk (toPublic delegateSk) (staticHeavyDlgIndexes !! 0)
265265
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 2
266-
, getRequiresNetworkMagic = NMMustBeNothing
266+
, getRequiresNetworkMagic = RequiresNoMagic
267267
}
268268

269269
exampleMainConsensusData :: MainConsensusData
@@ -287,7 +287,7 @@ exampleGenesisBlockHeader = mkGenesisHeader pm
287287
where
288288
prevHash = coerce (hash ("genesisHash" :: Text)) :: Hash a
289289
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
290-
, getRequiresNetworkMagic = NMMustBeNothing
290+
, getRequiresNetworkMagic = RequiresNoMagic
291291
}
292292

293293
-- We use `Nothing` as the ProxySKBlockInfo to avoid clashing key errors
@@ -303,7 +303,7 @@ exampleMainBlockHeader = mkMainHeaderExplicit pm
303303
exampleMainExtraHeaderData
304304
where
305305
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 7
306-
, getRequiresNetworkMagic = NMMustBeNothing
306+
, getRequiresNetworkMagic = RequiresNoMagic
307307
}
308308

309309
exampleMainProof :: MainProof

‎chain/test/Test/Pos/Chain/Delegation/Example.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ staticProtocolMagics = map mkPm [0..5]
2626
where
2727
mkPm :: Int32 -> ProtocolMagic
2828
mkPm x = ProtocolMagic { getProtocolMagicId = ProtocolMagicId x
29-
, getRequiresNetworkMagic = NMMustBeNothing
29+
, getRequiresNetworkMagic = RequiresNoMagic
3030
}
3131

3232
staticProxySKHeavys :: [ProxySKHeavy]

‎chain/test/Test/Pos/Chain/Genesis/Example.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -273,7 +273,7 @@ exampleGenesisProtocolConstants0 :: GenesisProtocolConstants
273273
exampleGenesisProtocolConstants0 = GenesisProtocolConstants
274274
{ gpcK = 37
275275
, gpcProtocolMagic = ProtocolMagic (ProtocolMagicId 1783847074)
276-
NMMustBeJust
276+
RequiresMagic
277277
, gpcVssMaxTTL = VssMaxTTL {getVssMaxTTL = 1477558317}
278278
, gpcVssMinTTL = VssMinTTL {getVssMinTTL = 744040476}}
279279

@@ -282,7 +282,7 @@ exampleGenesisProtocolConstants1 = GenesisProtocolConstants
282282
{ gpcK = 64
283283
, gpcProtocolMagic = ProtocolMagic
284284
{ getProtocolMagicId = ProtocolMagicId 135977977
285-
, getRequiresNetworkMagic = NMMustBeJust
285+
, getRequiresNetworkMagic = RequiresMagic
286286
}
287287
, gpcVssMaxTTL = VssMaxTTL {getVssMaxTTL = 126106167}
288288
, gpcVssMinTTL = VssMinTTL {getVssMinTTL = 310228653}}
@@ -292,7 +292,7 @@ exampleGenesisProtocolConstants2 = GenesisProtocolConstants
292292
{ gpcK = 2
293293
, gpcProtocolMagic = ProtocolMagic
294294
{ getProtocolMagicId = ProtocolMagicId 1780893186
295-
, getRequiresNetworkMagic = NMMustBeJust
295+
, getRequiresNetworkMagic = RequiresMagic
296296
}
297297
, gpcVssMaxTTL = VssMaxTTL {getVssMaxTTL = 402296078}
298298
, gpcVssMinTTL = VssMinTTL {getVssMinTTL = 1341799941}}

‎chain/test/Test/Pos/Chain/Genesis/Json.hs

+5-5
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@ import Test.Pos.Chain.Genesis.Gen (genGenesisAvvmBalances,
2020
genGenesisData, genGenesisDelegation,
2121
genGenesisInitializer, genGenesisProtocolConstants,
2222
genStaticConfig)
23-
import Test.Pos.Core.ExampleHelpers (feedPM, feedPMWithNMMustBeJust)
23+
import Test.Pos.Core.ExampleHelpers (feedPM, feedPMWithRequiresMagic)
2424
import Test.Pos.Util.Golden (discoverGolden, eachOf,
2525
goldenTestCanonicalJSONDec, goldenTestJSON,
2626
goldenTestJSONDec)
@@ -33,7 +33,7 @@ import Test.Pos.Util.Tripping (discoverRoundTrip, roundTripsAesonShow,
3333

3434
-- Decode-only golden tests for ensuring that, when decoding the legacy
3535
-- `StaticConfig` JSON format, the `RequiresNetworkMagic` field defaults to
36-
-- `NMMustBeJust`.
36+
-- `RequiresMagic`.
3737

3838
golden_StaticConfig_GCSpec0Dec :: Property
3939
golden_StaticConfig_GCSpec0Dec =
@@ -69,7 +69,7 @@ roundTripStaticConfig =
6969

7070
-- Decode-only golden tests for ensuring that, when decoding the legacy
7171
-- `GenesisData` canonical JSON format, the `RequiresNetworkMagic` field
72-
-- defaults to `NMMustBeJust`.
72+
-- defaults to `RequiresMagic`.
7373

7474
golden_GenesisData0Dec :: Property
7575
golden_GenesisData0Dec =
@@ -91,7 +91,7 @@ golden_GenesisDataDec2 =
9191

9292
roundTripGenesisData :: Property
9393
roundTripGenesisData =
94-
eachOf 100 (feedPMWithNMMustBeJust genGenesisData) roundTripsCanonicalJSONShow
94+
eachOf 100 (feedPMWithRequiresMagic genGenesisData) roundTripsCanonicalJSONShow
9595

9696
--------------------------------------------------------------------------------
9797
-- GenesisAvvmBalances
@@ -115,7 +115,7 @@ roundTripGenesisDelegation =
115115

116116
-- Decode-only golden tests for ensuring that, when decoding the legacy
117117
-- `GenesisProtocolConstants` JSON format, the `RequiresNetworkMagic` field
118-
-- defaults to `NMMustBeJust`.
118+
-- defaults to `RequiresMagic`.
119119

120120
golden_GenesisProtocolConstants0Dec :: Property
121121
golden_GenesisProtocolConstants0Dec =

‎chain/test/Test/Pos/Chain/Ssc/Example.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -58,7 +58,7 @@ exampleCommitmentSignature :: CommitmentSignature
5858
exampleCommitmentSignature =
5959
sign
6060
(ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
61-
, getRequiresNetworkMagic = NMMustBeNothing
61+
, getRequiresNetworkMagic = RequiresNoMagic
6262
})
6363
SignForTestingOnly
6464
exampleSecretKey
@@ -144,7 +144,7 @@ exampleVssCertificate :: VssCertificate
144144
exampleVssCertificate =
145145
mkVssCertificate
146146
(ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
147-
, getRequiresNetworkMagic = NMMustBeNothing
147+
, getRequiresNetworkMagic = RequiresNoMagic
148148
})
149149
exampleSecretKey
150150
(asBinary (toVssPublicKey $ deterministicVssKeyGen ("golden" :: ByteString)))
@@ -156,7 +156,7 @@ exampleVssCertificates offset num = map vssCert [0..num-1]
156156
secretKeyList = (exampleSecretKeys offset num)
157157
vssCert index = mkVssCertificate
158158
(ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
159-
, getRequiresNetworkMagic = NMMustBeNothing
159+
, getRequiresNetworkMagic = RequiresNoMagic
160160
})
161161
(secretKeyList !! index)
162162
(asBinary (toVssPublicKey $ deterministicVssKeyGen (getBytes index 128)))

‎chain/test/Test/Pos/Chain/Txp/Bi.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -205,7 +205,7 @@ golden_TxSig = goldenTestBi txSigGold "test/golden/TxSig"
205205
txSigGold = sign pm SignForTestingOnly
206206
exampleSecretKey exampleTxSigData
207207
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
208-
, getRequiresNetworkMagic = NMMustBeNothing
208+
, getRequiresNetworkMagic = RequiresNoMagic
209209
}
210210

211211
roundTripTxSig :: Property
@@ -236,7 +236,7 @@ sizeEstimates =
236236
let check :: (Show a, Bi a) => Gen a -> Property
237237
check g = sizeTest $ scfg { gen = g }
238238
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
239-
, getRequiresNetworkMagic = NMMustBeNothing
239+
, getRequiresNetworkMagic = RequiresNoMagic
240240
}
241241
knownTxIn (TxInUnknown _ _) = False
242242
knownTxIn _ = True

‎chain/test/Test/Pos/Chain/Update/Example.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -210,7 +210,7 @@ exampleUpdateProposalToSign :: UpdateProposalToSign
210210
, UpdateProposalToSign bv bvm sv hm ua )
211211
where
212212
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
213-
, getRequiresNetworkMagic = NMMustBeNothing
213+
, getRequiresNetworkMagic = RequiresNoMagic
214214
}
215215
bv = exampleBlockVersion
216216
bvm = exampleBlockVersionModifier
@@ -223,7 +223,7 @@ exampleUpdateVote :: UpdateVote
223223
exampleUpdateVote = mkUpdateVoteSafe pm ss ui ar
224224
where
225225
pm = ProtocolMagic { getProtocolMagicId = ProtocolMagicId 0
226-
, getRequiresNetworkMagic = NMMustBeNothing
226+
, getRequiresNetworkMagic = RequiresNoMagic
227227
}
228228
ss = exampleSafeSigner 0
229229
ui = exampleUpId

‎core/test/Test/Pos/Core/ExampleHelpers.hs

+4-4
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ module Test.Pos.Core.ExampleHelpers
3535

3636
-- Helpers
3737
, feedPM
38-
, feedPMWithNMMustBeJust
38+
, feedPMWithRequiresMagic
3939
, feedPC
4040
, feedPMC
4141
, feedEpochSlots
@@ -84,9 +84,9 @@ import Test.Pos.Crypto.Gen (genProtocolMagic, genProtocolMagicId)
8484
feedPM :: (ProtocolMagic -> H.Gen a) -> H.Gen a
8585
feedPM genA = genA =<< genProtocolMagic
8686

87-
feedPMWithNMMustBeJust :: (ProtocolMagic -> H.Gen a) -> H.Gen a
88-
feedPMWithNMMustBeJust genA = do
89-
pm <- flip ProtocolMagic NMMustBeJust <$> genProtocolMagicId
87+
feedPMWithRequiresMagic :: (ProtocolMagic -> H.Gen a) -> H.Gen a
88+
feedPMWithRequiresMagic genA = do
89+
pm <- flip ProtocolMagic RequiresMagic <$> genProtocolMagicId
9090
genA pm
9191

9292
feedPC :: (ProtocolConstants -> H.Gen a) -> H.Gen a

‎core/test/Test/Pos/Core/SafeCopy.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ import Test.Pos.Util.Golden (discoverGolden, goldenTestSafeCopyDec)
1717

1818
-- Decode-only golden tests for ensuring that, when decoding the legacy
1919
-- `Address` `SafeCopy` format, the `RequiresNetworkMagic` field defaults to
20-
-- `NMMustBeNothing`.
20+
-- `RequiresNoMagic`.
2121

2222
golden_Address0 :: Property
2323
golden_Address0 =
@@ -55,7 +55,7 @@ golden_Address4 =
5555

5656
-- Decode-only golden tests for ensuring that, when decoding the legacy
5757
-- `Address'` `SafeCopy` format, the `RequiresNetworkMagic` field defaults to
58-
-- `NMMustBeNothing`.
58+
-- `RequiresNoMagic`.
5959

6060
golden_Address'0 :: Property
6161
golden_Address'0 =

‎crypto/Pos/Crypto/Configuration.hs

+20-20
Original file line numberDiff line numberDiff line change
@@ -27,8 +27,8 @@ import Pos.Util.Util (toAesonError)
2727
-- | Bool-isomorphic flag indicating whether we're on testnet
2828
-- or mainnet/staging.
2929
data RequiresNetworkMagic
30-
= NMMustBeNothing
31-
| NMMustBeJust
30+
= RequiresNoMagic
31+
| RequiresMagic
3232
deriving (Show, Eq, Generic)
3333

3434
instance NFData RequiresNetworkMagic
@@ -39,27 +39,27 @@ deriveSafeCopySimple 0 'base ''RequiresNetworkMagic
3939
-- They should only be used from a parent instance which handles the
4040
-- `requiresNetworkMagic` key.
4141
instance A.ToJSON RequiresNetworkMagic where
42-
toJSON NMMustBeNothing = A.String "NMMustBeNothing"
43-
toJSON NMMustBeJust = A.String "NMMustBeJust"
42+
toJSON RequiresNoMagic = A.String "RequiresNoMagic"
43+
toJSON RequiresMagic = A.String "RequiresMagic"
4444

4545
instance A.FromJSON RequiresNetworkMagic where
4646
parseJSON = A.withText "requiresNetworkMagic" $ toAesonError . \case
47-
"NMMustBeNothing" -> Right NMMustBeNothing
48-
"NMMustBeJust" -> Right NMMustBeJust
47+
"RequiresNoMagic" -> Right RequiresNoMagic
48+
"RequiresMagic" -> Right RequiresMagic
4949
other -> Left ("invalid value " <> show other <>
50-
", acceptable values are NMMustBeNothing | NMMustBeJust")
50+
", acceptable values are RequiresNoMagic | RequiresMagic")
5151

5252
-- Canonical JSON instances
5353
instance Monad m => ToJSON m RequiresNetworkMagic where
54-
toJSON NMMustBeNothing = pure (JSString "NMMustBeNothing")
55-
toJSON NMMustBeJust = pure (JSString "NMMustBeJust")
54+
toJSON RequiresNoMagic = pure (JSString "RequiresNoMagic")
55+
toJSON RequiresMagic = pure (JSString "RequiresMagic")
5656

5757
instance MonadError SchemaError m => FromJSON m RequiresNetworkMagic where
5858
fromJSON = \case
59-
(JSString "NMMustBeNothing") -> pure NMMustBeNothing
60-
(JSString "NMMustBeJust") -> pure NMMustBeJust
59+
(JSString "RequiresNoMagic") -> pure RequiresNoMagic
60+
(JSString "RequiresMagic") -> pure RequiresMagic
6161
other ->
62-
expected "NMMustBeNothing | NMMustBeJust" (Just (show other))
62+
expected "RequiresNoMagic | RequiresMagic" (Just (show other))
6363

6464

6565
--------------------------------------------------------------------------------
@@ -96,12 +96,12 @@ instance A.ToJSON ProtocolMagic where
9696
toJSON (ProtocolMagic (ProtocolMagicId ident) rnm) =
9797
A.object ["pm" .= ident, "requiresNetworkMagic" .= rnm]
9898

99-
-- Here we default to `NMMustBeJust` (what testnets use) if only
99+
-- Here we default to `RequiresMagic` (what testnets use) if only
100100
-- a ProtocolMagic identifier is provided.
101101
instance A.FromJSON ProtocolMagic where
102102
parseJSON v@(A.Number _) = ProtocolMagic
103103
<$> (ProtocolMagicId <$> A.parseJSON v)
104-
<*> pure NMMustBeJust
104+
<*> pure RequiresMagic
105105
parseJSON (A.Object o) = ProtocolMagic
106106
<$> (ProtocolMagicId <$> o .: "pm")
107107
<*> o .: "requiresNetworkMagic"
@@ -128,20 +128,20 @@ instance Monad m => ToJSON m ProtocolMagic where
128128
-- how this works.
129129
toJSON (ProtocolMagic (ProtocolMagicId ident) _rnm) = toJSON ident
130130

131-
-- Here we default to `NMMustBeJust` (what testnets use) if only
131+
-- Here we default to `RequiresMagic` (what testnets use) if only
132132
-- a ProtocolMagic identifier is provided.
133133
instance MonadError SchemaError m => FromJSON m ProtocolMagic where
134134
fromJSON = \case
135135
(JSNum n) -> pure (ProtocolMagic (ProtocolMagicId (fromIntegral n))
136-
NMMustBeJust)
136+
RequiresMagic)
137137
(JSObject dict) -> ProtocolMagic
138138
<$> (ProtocolMagicId <$> expectLookup "pm: <int>" "pm" dict)
139-
<*> expectLookup "requiresNetworkMagic: <NMMustBeNothing | \
140-
\NMMustBeJust>"
139+
<*> expectLookup "requiresNetworkMagic: <RequiresNoMagic | \
140+
\RequiresMagic>"
141141
"requiresNetworkMagic"
142142
dict
143143
other ->
144-
expected "NMMustBeNothing | NMMustBeJust" (Just (show other))
144+
expected "RequiresNoMagic | RequiresMagic" (Just (show other))
145145

146146
expectLookup :: (MonadError SchemaError m, FromJSON m a)
147147
=> String -> String -> [(String, JSValue)] -> m a
@@ -161,6 +161,6 @@ and the new format
161161
```
162162
protocolMagic:
163163
pm: 12345678
164-
requiresNetworkMagic: NMMustBeNothing
164+
requiresNetworkMagic: RequiresNoMagic
165165
```
166166
-}

‎crypto/test/Test/Pos/Crypto/Arbitrary.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -58,7 +58,7 @@ instance Arbitrary ProtocolMagicId where
5858
arbitrary = ProtocolMagicId <$> arbitrary
5959

6060
instance Arbitrary RequiresNetworkMagic where
61-
arbitrary = elements [NMMustBeNothing, NMMustBeJust]
61+
arbitrary = elements [RequiresNoMagic, RequiresMagic]
6262

6363
genProtocolMagicUniformWithRNM :: RequiresNetworkMagic -> Gen ProtocolMagic
6464
genProtocolMagicUniformWithRNM rnm =

‎crypto/test/Test/Pos/Crypto/Bi.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -399,7 +399,7 @@ constantByteString
399399
\7nZqcXdoi4XGTCgSGcGp8N0SDVhvkVh0QF1RVpWPnOMyYISJvuaHfo1zXMdq9tEdtJfID"
400400

401401
exampleProtocolMagic :: ProtocolMagic
402-
exampleProtocolMagic = ProtocolMagic (ProtocolMagicId 0) NMMustBeNothing
402+
exampleProtocolMagic = ProtocolMagic (ProtocolMagicId 0) RequiresNoMagic
403403

404404
--------------------------------------------------------------------------------
405405

‎crypto/test/Test/Pos/Crypto/Dummy.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -10,10 +10,10 @@ import Pos.Crypto (ProtocolMagic (..), ProtocolMagicId (..),
1010
RequiresNetworkMagic (..))
1111

1212
dummyProtocolMagic :: ProtocolMagic
13-
dummyProtocolMagic = ProtocolMagic dummyProtocolMagicId NMMustBeNothing
13+
dummyProtocolMagic = ProtocolMagic dummyProtocolMagicId RequiresNoMagic
1414

1515
dummyProtocolMagicId :: ProtocolMagicId
1616
dummyProtocolMagicId = ProtocolMagicId 55550001
1717

1818
dummyRequiresNetworkMagic :: RequiresNetworkMagic
19-
dummyRequiresNetworkMagic = NMMustBeNothing
19+
dummyRequiresNetworkMagic = RequiresNoMagic

‎crypto/test/Test/Pos/Crypto/Example.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -12,10 +12,10 @@ import Pos.Crypto (ProtocolMagic (..), ProtocolMagicId (..),
1212
--------------------------------------------------------------------------------
1313

1414
exampleProtocolMagic0 :: ProtocolMagic
15-
exampleProtocolMagic0 = ProtocolMagic (ProtocolMagicId 31337) NMMustBeJust
15+
exampleProtocolMagic0 = ProtocolMagic (ProtocolMagicId 31337) RequiresMagic
1616

1717
exampleProtocolMagic1 :: ProtocolMagic
18-
exampleProtocolMagic1 = ProtocolMagic (ProtocolMagicId 2147000001) NMMustBeJust
18+
exampleProtocolMagic1 = ProtocolMagic (ProtocolMagicId 2147000001) RequiresMagic
1919

2020
exampleProtocolMagic2 :: ProtocolMagic
21-
exampleProtocolMagic2 = ProtocolMagic (ProtocolMagicId (- 58952)) NMMustBeJust
21+
exampleProtocolMagic2 = ProtocolMagic (ProtocolMagicId (- 58952)) RequiresMagic

‎crypto/test/Test/Pos/Crypto/Gen.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -95,7 +95,7 @@ genProtocolMagicId :: Gen ProtocolMagicId
9595
genProtocolMagicId = ProtocolMagicId <$> Gen.int32 Range.constantBounded
9696

9797
genRequiresNetworkMagic :: Gen RequiresNetworkMagic
98-
genRequiresNetworkMagic = Gen.element [NMMustBeNothing, NMMustBeJust]
98+
genRequiresNetworkMagic = Gen.element [RequiresNoMagic, RequiresMagic]
9999

100100
----------------------------------------------------------------------------
101101
-- Sign Tag Generator

0 commit comments

Comments
 (0)