dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-05-30 06:54:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: update app settings for migration (#4518)

Browse Source
This commit is contained in:
Evgeny Poberezkin
2024-07-26 10:30:49 +01:00
committed by GitHub
parent 032c5d3a5b
commit 13bfc9e92b
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/AppSettings.hs
+6
View File
@@ -35,6 +35,7 @@ data AppSettings = AppSettings
privacyShowChatPreviews :: Maybe Bool,
privacySaveLastDraft :: Maybe Bool,
privacyProtectScreen :: Maybe Bool,
privacyMediaBlurRadius :: Maybe Int,
notificationMode :: Maybe NotificationMode,
notificationPreviewMode :: Maybe NotificationPreviewMode,
webrtcPolicyRelay :: Maybe Bool,
@@ -68,6 +69,7 @@ defaultAppSettings =
privacyShowChatPreviews = Just True,
privacySaveLastDraft = Just True,
privacyProtectScreen = Just False,
privacyMediaBlurRadius = Just 0,
notificationMode = Just NMInstant,
notificationPreviewMode = Just NPMMessage,
webrtcPolicyRelay = Just True,
@@ -100,6 +102,7 @@ defaultParseAppSettings =
privacyShowChatPreviews = Nothing,
privacySaveLastDraft = Nothing,
privacyProtectScreen = Nothing,
privacyMediaBlurRadius = Nothing,
notificationMode = Nothing,
notificationPreviewMode = Nothing,
webrtcPolicyRelay = Nothing,
@@ -132,6 +135,7 @@ combineAppSettings platformDefaults storedSettings =
privacyShowChatPreviews = p privacyShowChatPreviews,
privacySaveLastDraft = p privacySaveLastDraft,
privacyProtectScreen = p privacyProtectScreen,
privacyMediaBlurRadius = p privacyMediaBlurRadius,
notificationMode = p notificationMode,
notificationPreviewMode = p notificationPreviewMode,
webrtcPolicyRelay = p webrtcPolicyRelay,
@@ -176,6 +180,7 @@ instance FromJSON AppSettings where
privacyShowChatPreviews <- p "privacyShowChatPreviews"
privacySaveLastDraft <- p "privacySaveLastDraft"
privacyProtectScreen <- p "privacyProtectScreen"
privacyMediaBlurRadius <- p "privacyMediaBlurRadius"
notificationMode <- p "notificationMode"
notificationPreviewMode <- p "notificationPreviewMode"
webrtcPolicyRelay <- p "webrtcPolicyRelay"
@@ -205,6 +210,7 @@ instance FromJSON AppSettings where
privacyShowChatPreviews,
privacySaveLastDraft,
privacyProtectScreen,
privacyMediaBlurRadius,
notificationMode,
notificationPreviewMode,
webrtcPolicyRelay,