Simple Twitter chat bot

Main.hs

{-# LANGUAGE DeriveAnyClass    #-}
{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards   #-}

import Data.ByteString (ByteString)
import Data.Default.Class (Default(..))
import GHC.Generics (Generic)
import Network.Connection (ConnectionParams(..))
import Options.Generic (ParseRecord)

import qualified Control.Concurrent    as Concurrent
import qualified Control.Monad         as Monad
import qualified Data.ByteString.Char8 as ByteString
import qualified Network.Connection    as Connection
import qualified Options.Generic       as Options

data Options = Options { token :: ByteString } deriving (Generic, ParseRecord)

main :: IO ()
main = do
    Options{..} <- Options.getRecord "Simple Twitch chat bot"

    connectionContext <- Connection.initConnectionContext

    let connectionHostname = "irc.chat.twitch.tv"
    let connectionPort = 6697
    let connectionUseSecure = Just def
    let connectionUseSocks = Nothing

    connection <- Connection.connectTo connectionContext ConnectionParams{..}

    Connection.connectionPut connection ("PASS " <> token <> "\r\n")
    Connection.connectionPut connection ("NICK gabrielg439\r\n")
    Connection.connectionPut connection ("JOIN #awakesecurity\r\n")

    _ <- Concurrent.forkIO $ Monad.forever $ do
        bytes <- Connection.connectionGetLine 1024 connection

        ByteString.putStrLn bytes

    Monad.forever $ do
        message <- ByteString.getLine

        Connection.connectionPut connection ("PRIVMSG #awakesecurity " <> message <> "\r\n")