add option to enable logging (#216)

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

src/Simplex/Chat.hs

@@ -127,9 +127,13 @@ 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
+    withGlobalLogging logCfg initRun
+  | otherwise = initRun
+  where
+    initRun =
       initializeNotifications
         >>= newChatController cfg opts t
         >>= runSimplexChat

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"