add option to enable logging (#216)

Co-authored-by: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>

src/Simplex/Chat.hs

@@ -127,12 +127,16 @@ logCfg :: LogConfig
 logCfg = LogConfig {lc_file = Nothing, lc_stderr = True}
 
 simplexChat :: WithTerminal t => ChatConfig -> ChatOpts -> t -> IO ()
-simplexChat cfg opts t =
+simplexChat cfg opts@ChatOpts {logging} t
-  -- setLogLevel LogInfo -- LogError
+  | logging = do
-  -- withGlobalLogging logCfg $ do
+    setLogLevel LogInfo -- LogError
-  initializeNotifications
+    withGlobalLogging logCfg initRun
-    >>= newChatController cfg opts t
+  | otherwise = initRun
-    >>= runSimplexChat
+  where
+    initRun =
+      initializeNotifications
+        >>= newChatController cfg opts t
+        >>= runSimplexChat
 
 newChatController :: WithTerminal t => ChatConfig -> ChatOpts -> t -> (Notification -> IO ()) -> IO ChatController
 newChatController config@ChatConfig {agentConfig = cfg, dbPoolSize, tbqSize} ChatOpts {dbFile, smpServers} t sendNotification = do

src/Simplex/Chat/Options.hs

@@ -15,7 +15,8 @@ import System.FilePath (combine)
 
 data ChatOpts = ChatOpts
   { dbFile :: String,
-    smpServers :: NonEmpty SMPServer
+    smpServers :: NonEmpty SMPServer,
+    logging :: Bool
   }
 
 chatOpts :: FilePath -> Parser ChatOpts
@@ -45,6 +46,11 @@ chatOpts appDir =
                 ]
             )
       )
+    <*> switch
+      ( long "log"
+          <> short 'l'
+          <> help "Enable logging"
+      )
   where
     defaultDbFilePath = combine appDir "simplex_v1"