core: different types for chat preferences, to allow parameters (#1565)

This commit is contained in:
Evgeny Poberezkin
2022-12-13 14:52:34 +00:00
committed by GitHub
parent bd4c7dffbf
commit 678dbec3e2
8 changed files with 190 additions and 100 deletions
+1 -1
View File
@@ -80,7 +80,7 @@ s #==# msg = do
s ==# msg
testChatPreferences :: Maybe Preferences
testChatPreferences = Just Preferences {voice = Just Preference {allow = FAYes}, fullDelete = Nothing}
testChatPreferences = Just Preferences {voice = Just VoicePreference {allow = FAYes}, fullDelete = Nothing, timedMessages = Nothing}
testGroupPreferences :: Maybe GroupPreferences
testGroupPreferences = Just GroupPreferences {directMessages = Nothing, voice = Just GroupPreference {enable = FEOn}, fullDelete = Nothing}