From 556f99e0298e41ecfa264cb3f6d2c1ec93018e8f Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Wed, 10 Jun 2026 21:39:47 +0100 Subject: [PATCH] update badge images, add public key --- .../resources/MR/images/badge_investor.svg | 29 ++----------------- .../resources/MR/images/badge_legend.svg | 29 ++----------------- .../resources/MR/images/badge_supporter.svg | 24 --------------- src/Simplex/Chat.hs | 4 ++- 4 files changed, 9 insertions(+), 77 deletions(-) diff --git a/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_investor.svg b/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_investor.svg index 1644974a3f..45bfda9a7a 100644 --- a/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_investor.svg +++ b/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_investor.svg @@ -1,32 +1,9 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - + + + diff --git a/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_legend.svg b/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_legend.svg index da58de1cbb..f78f527470 100644 --- a/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_legend.svg +++ b/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_legend.svg @@ -1,32 +1,9 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - + + + diff --git a/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_supporter.svg b/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_supporter.svg index ec775a0a3b..8e7a8a8882 100644 --- a/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_supporter.svg +++ b/apps/multiplatform/common/src/commonMain/resources/MR/images/badge_supporter.svg @@ -2,30 +2,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs index e5d2706642..06c3f14df0 100644 --- a/src/Simplex/Chat.hs +++ b/src/Simplex/Chat.hs @@ -21,6 +21,8 @@ import Control.Monad import Control.Monad.Except import Control.Monad.IO.Unlift import Data.Bifunctor (bimap, second) +import qualified Data.ByteString.Base64.URL as U +import Data.Either (fromRight) import Data.List (partition, sortOn) import Data.List.NonEmpty (NonEmpty (..)) import qualified Data.List.NonEmpty as L @@ -66,7 +68,7 @@ defaultChatConfig = tbqSize = 1024 }, chatVRange = supportedChatVRange, - badgePublicKey = BBSPublicKey "", + badgePublicKey = BBSPublicKey $ fromRight (error "bad base64 in badge service key") $ U.decode "ugBHzTr4z1EOgczllk4ohrxhJv4afiDaUpuBQG8PDB9W8gXN0wiDQ5QfeDNt2QqoAtmIaBImMsy5WQrAxwNI-KL7tsN0vlriU2zab6qVjJjOYJ3YB3scYT1s9dGVMAXW", confirmMigrations = MCConsole, -- this property should NOT use operator = Nothing -- non-operator servers can be passed via options