mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-10-01 10:49:11 +00:00
sh
b1dc25dc3e
* core: cancel the chat callback on interrupt * badges: add multi-use codes * badges: add the managed group * badges: document multi-use codes and the group * core: sign test badges with whole-second expiry * badges: rework tracker and reply texts
24 lines
965 B
Haskell
24 lines
965 B
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
module Main where
|
|
|
|
import BadgeService.Options (BadgeServiceOpts (..))
|
|
import BadgeService.Service
|
|
import Control.Logger.Simple (LogConfig (..), LogLevel (..), setLogLevel, withGlobalLogging)
|
|
import GHC.IO.Encoding (setLocaleEncoding)
|
|
import Simplex.Chat.Terminal (terminalChatConfig)
|
|
import System.IO (hSetEncoding, stderr, stdout, utf8)
|
|
|
|
-- | withGlobalLogging installs the SMP agent's log sinks, which the chat core otherwise installs only under --log-agent.
|
|
main :: IO ()
|
|
main = do
|
|
-- Without a UTF-8 locale GHC reads the ini and writes logs as ASCII, and throws on a non-ASCII group name.
|
|
setLocaleEncoding utf8
|
|
mapM_ (`hSetEncoding` utf8) [stdout, stderr]
|
|
withGlobalLogging LogConfig {lc_file = Nothing, lc_stderr = True} $ do
|
|
setLogLevel LogWarn
|
|
opts@BadgeServiceOpts {runCLI} <- welcomeGetOpts
|
|
if runCLI
|
|
then badgeServiceCLI opts
|
|
else newServiceState >>= badgeService opts terminalChatConfig
|