mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-09-20 05:26:28 +00:00
15 lines
366 B
Haskell
15 lines
366 B
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
module Main where
|
|
|
|
import BadgeService.Options (BadgeServiceOpts (..))
|
|
import BadgeService.Service
|
|
import Simplex.Chat.Terminal (terminalChatConfig)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
opts@BadgeServiceOpts {runCLI} <- welcomeGetOpts
|
|
if runCLI
|
|
then badgeServiceCLI opts
|
|
else newServiceState >>= badgeService opts terminalChatConfig
|