matterhorn-90000.0.1: src/Matterhorn/State/Teams.hs-boot

module Matterhorn.State.Teams
  ( makeClientChannel
  )
where

import           Prelude ()
import           Matterhorn.Prelude

import qualified Brick.BChan as BCH
import           Text.Aspell ( Aspell )

import           Network.Mattermost.Types ( Channel, ChannelMember, UserId, TeamId )

import           Matterhorn.Types ( MHEvent )
import           Matterhorn.Types.Channels ( ClientChannel )

makeClientChannel :: (MonadIO m)
                  => BCH.BChan MHEvent
                  -> Maybe Aspell
                  -> UserId
                  -> Maybe TeamId
                  -> Channel
                  -> ChannelMember
                  -> m ClientChannel