terminal: options for log level and internal queue sizes (#1755)

* terminal: log levels

* option for internal queue sizes

src/Simplex/Chat/Controller.hs

@@ -77,6 +77,7 @@ data ChatConfig = ChatConfig
     subscriptionConcurrency :: Int,
     subscriptionEvents :: Bool,
     hostEvents :: Bool,
+    logLevel :: ChatLogLevel,
     testView :: Bool
   }
 
@@ -543,6 +544,9 @@ tmeToPref currentTTL tme = uncurry TimedMessagesPreference $ case tme of
   TMEEnableKeepTTL -> (FAYes, currentTTL)
   TMEDisableKeepTTL -> (FANo, currentTTL)
 
+data ChatLogLevel = CLLDebug | CLLInfo | CLLWarning | CLLError | CLLImportant
+  deriving (Eq, Ord, Show)
+
 data ChatError
   = ChatError {errorType :: ChatErrorType}
   | ChatErrorAgent {agentError :: AgentErrorType, connectionEntity_ :: Maybe ConnectionEntity}