calamity-0.1.9.2: src/Calamity/Commands/Handler.hs

-- | A command handler
module Calamity.Commands.Handler
    ( CommandHandler(..) ) where

import           Calamity.Commands.Command
import           Calamity.Commands.Group

import qualified Data.HashMap.Lazy         as LH
import qualified Data.Text                 as S

import           GHC.Generics

import           TextShow
import qualified TextShow.Generic          as TSG

data CommandHandler = CommandHandler
  { groups   :: LH.HashMap S.Text Group
    -- ^ Top level groups
  , commands :: LH.HashMap S.Text Command
    -- ^ Top level commands
  }
  deriving ( Show, Generic )
  deriving ( TextShow ) via TSG.FromGeneric CommandHandler