import Control.Monad

    , channels :: [Text]

        , channels = ["bot-testing"]

eventHandler config event = case event of

eventHandler _config event = case event of

    MessageCreate m -> unless (fromBot m) $ do
        channelRes <- restCall (Request.GetChannel (messageChannelId m))
        case channelRes of
            Left _ -> pure ()
            Right channel ->
                when (permissiveChannels (channels config) channel) $ do
                    void $
                        restCall
                            ( Request.CreateMessage
                                (messageChannelId m)
                                "Someone's Alive!!"
                            )

fromBot :: Message -> Bool
fromBot = userIsBot . messageAuthor

permissiveChannels :: [Text] -> Channel -> Bool
permissiveChannels names channel = case channel of
    ChannelText {..} -> channelName `elem` names
    _ -> False