This commit is contained in:
Evgeny Poberezkin
2026-08-31 19:01:00 +01:00
parent d55af1ef3f
commit 1d8583f868
+1 -1
View File
@@ -95,7 +95,7 @@ entitlementMessageCount :: Int
entitlementMessageCount = 4
entitlementDisclosedIndexes :: [Int]
entitlementDisclosedIndexes = [1 .. entitlementMessageCount - 1]
entitlementDisclosedIndexes = [1, 2, 3]
entitlementMessages :: MasterKey -> Entitlement -> [ByteString]
entitlementMessages (MasterKey mk) ent = mk : disclosedMessages ent