mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-08-16 02:30:19 +00:00
7ce2e6583e
* core: simplex-badge-service scaffolding * wip * wip * wip * wip * wip * wip * wip * wip * wip * wip * wip * clean-up --------- Co-authored-by: Evgeny Poberezkin <evgeny@poberezkin.com>
15 lines
346 B
Haskell
15 lines
346 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 badgeService opts terminalChatConfig
|