butler-0.0.1.0: At your service.
Safe HaskellSafe-Inferred
LanguageGHC2021

Butler.Service.SoundBlaster

Documentation

soundBlasterService :: Service #

startSoundCard :: AppContext -> ProcessIO () #

renderAudioToggle :: WinID -> TVar UserName -> Bool -> HtmlT STM () #

data SoundCard #

Constructors

SoundCard 

Fields

newSoundCard :: WinID -> STM SoundCard #

getSoundCard :: MonadUnliftIO m => AppContext -> m SoundCard #

data SoundCardEvent #

Constructors

SoundUserJoined DisplayClient 
SoundUserLeft DisplayClient 
SoundReceiverStarted 
SoundReceiverStopped 
SoundChannelEvent SoundChannelID 
SoundReceiveEvent DisplayClient ByteString (Maybe StreamFrame) 

addSoundClient :: SoundCard -> DisplayClient -> STM () #

delSoundClient :: SoundCard -> DisplayClient -> STM () #

soundCardInfoHtml :: SoundCard -> HtmlT STM () #

drawList :: NatMap a -> HtmlT STM () -> (a -> HtmlT STM ()) -> HtmlT STM () #

soundChannelHtml :: SoundCard -> SoundChannel -> HtmlT STM () #

soundReceiverHtml :: SoundReceiver -> HtmlT STM () #

data SoundChannel #

Constructors

SoundChannel 

Fields

newtype SoundChannelName #

Constructors

SoundChannelName Text 

Instances

Instances details
FromJSON SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

parseJSON :: Value -> Parser SoundChannelName #

parseJSONList :: Value -> Parser [SoundChannelName] #

ToJSON SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

toJSON :: SoundChannelName -> Value #

toEncoding :: SoundChannelName -> Encoding #

toJSONList :: [SoundChannelName] -> Value #

toEncodingList :: [SoundChannelName] -> Encoding #

IsString SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

fromString :: String -> SoundChannelName #

Semigroup SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

(<>) :: SoundChannelName -> SoundChannelName -> SoundChannelName #

sconcat :: NonEmpty SoundChannelName -> SoundChannelName #

stimes :: Integral b => b -> SoundChannelName -> SoundChannelName #

Generic SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Associated Types

type Rep SoundChannelName :: Type -> Type #

Methods

from :: SoundChannelName -> Rep SoundChannelName x #

to :: Rep SoundChannelName x -> SoundChannelName #

Show SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

showsPrec :: Int -> SoundChannelName -> ShowS #

show :: SoundChannelName -> String #

showList :: [SoundChannelName] -> ShowS #

Eq SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

(==) :: SoundChannelName -> SoundChannelName -> Bool #

(/=) :: SoundChannelName -> SoundChannelName -> Bool #

Ord SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

compare :: SoundChannelName -> SoundChannelName -> Ordering #

(<) :: SoundChannelName -> SoundChannelName -> Bool #

(<=) :: SoundChannelName -> SoundChannelName -> Bool #

(>) :: SoundChannelName -> SoundChannelName -> Bool #

(>=) :: SoundChannelName -> SoundChannelName -> Bool #

max :: SoundChannelName -> SoundChannelName -> SoundChannelName #

min :: SoundChannelName -> SoundChannelName -> SoundChannelName #

ToHtml SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

toHtml :: forall (m :: Type -> Type). Monad m => SoundChannelName -> HtmlT m () #

toHtmlRaw :: forall (m :: Type -> Type). Monad m => SoundChannelName -> HtmlT m () #

Serialise SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

encode :: SoundChannelName -> Encoding #

decode :: Decoder s SoundChannelName #

encodeList :: [SoundChannelName] -> Encoding #

decodeList :: Decoder s [SoundChannelName] #

type Rep SoundChannelName # 
Instance details

Defined in Butler.Service.SoundBlaster

type Rep SoundChannelName = D1 ('MetaData "SoundChannelName" "Butler.Service.SoundBlaster" "butler-0.0.1.0-inplace" 'True) (C1 ('MetaCons "SoundChannelName" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype SoundChannelID #

Constructors

SoundChannelID Natural 

Instances

Instances details
ToJSON SoundChannelID # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

toJSON :: SoundChannelID -> Value #

toEncoding :: SoundChannelID -> Encoding #

toJSONList :: [SoundChannelID] -> Value #

toEncodingList :: [SoundChannelID] -> Encoding #

Show SoundChannelID # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

showsPrec :: Int -> SoundChannelID -> ShowS #

show :: SoundChannelID -> String #

showList :: [SoundChannelID] -> ShowS #

From WinID SoundChannelID # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

from :: WinID -> SoundChannelID #

From SoundChannelID WinID # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

from :: SoundChannelID -> WinID #

From SoundChannelID Natural # 
Instance details

Defined in Butler.Service.SoundBlaster

Methods

from :: SoundChannelID -> Natural #

data SoundClientStatus #

Constructors

SoundClientInitializing Bool 
SoundClientPlaying 
SoundClientMuted 
SoundClientError Text 

clientStatusHtml :: SoundClientStatus -> HtmlT STM () #

newSoundChannel :: WinID -> SoundChannelName -> Natural -> STM SoundChannel #

delSoundChannelClient :: SoundChannel -> DisplayClient -> STM () #

setSoundChannelClient :: SoundChannel -> SoundClientStatus -> DisplayClient -> STM () #

getSoundChannelClient :: SoundChannel -> DisplayClient -> STM (Maybe SoundClientStatus) #

startSoundChannelClient :: SoundCard -> SoundChannel -> Bool -> DisplayClient -> STM () #

startSoundChannelKeep :: (DisplayClient -> Bool) -> SoundCard -> WinID -> SoundChannelName -> STM SoundChannel #

startSoundChannel :: SoundCard -> WinID -> SoundChannelName -> STM SoundChannel #

stopSoundChannel :: SoundCard -> SoundChannel -> STM () #

mkControlMessage :: SoundCard -> Text -> [Pair] -> LByteString #

lookupSoundChannel :: SoundCard -> SoundChannelID -> STM (Maybe SoundChannel) #

feedChannel :: SoundCard -> SoundChannel -> ByteString -> Maybe StreamFrame -> STM () #

pauseChannel :: SoundCard -> SoundChannel -> STM () #

data SoundReceiver #

Constructors

SoundReceiver 

Fields

newSoundReceiver :: DisplayClient -> STM SoundReceiver #

delSoundReceiver :: SoundCard -> DisplayClient -> STM () #

getSoundReceiver :: SoundCard -> DisplayClient -> STM SoundReceiver #

soundReceiverHandler :: SoundCard -> DisplayClient -> ByteString -> ProcessIO () #

startClientRecorder :: SoundCard -> WinID -> DisplayClient -> STM () #

stopSoundReceiver :: SoundCard -> WinID -> DisplayClient -> STM () #

soundHandler :: SoundCard -> DisplayClient -> ByteString -> ProcessIO () #

soundClient :: WinID -> Text #