Attoparsec parser for IRCv3.
{-# LANGUAGE OverloadedStrings #-}
import Data.Attoparsec.Text (parseOnly)
import Data.IRCv3 (message, Message)
main :: IO ()
main = do
let msg = ":tmi.twitch.tv 001 justinfan123 :Welcome, GLHF!\r\n"
print $ parseOnly message msg
> Message {tags = Nothing, source = Just "tmi.twitch.tv", command = "001", parameters = (["justinfan123"],Just "Welcome, GLHF!")}