Network.Yak.Responses

All response codes as types, as defined by the current Ircv3 spec https://modern.ircdocs.horse/. Please note that the argument parsing in many of these is crude and the text is parsed only as a catch-all Message type, since there may be difference between implementations on the server side, or even per network! In some places, responses have been hard-coded as defined in the Irc in order to extract necessary information. If you disagree with these choices, pull requests are welcome.

Also note that you probably want to import this module qualified, or import just what you need, as it exports 93 type synonyms and many more lenses.

In case your use case allows more precise parsing, or you need server specific response codes not listed, you can always hide the relevant types and define your own by simply building the appropriate type synonym.

• *NOTE:** Because of size and a lack of test cases, this module is largely untested. Here be dragons!

Documentation

type Client = Username

type RplWelcome = Msg "001" '[Client, Message]

"<client> :Welcome to the <networkname> Network, <nick>[!<user>@<host>]"

rplWelcomeMessage :: Lens' RplWelcome Message

rplWelcomeClient :: Lens' RplWelcome Client

type RplYourhost = Msg "002" '[Client, Message]

"<client> :Your host is <servername>, running version <version>"

rplYourhostMessage :: Lens' RplYourhost Message

rplYourhostClient :: Lens' RplYourhost Client

type RplCreated = Msg "003" '[Client, Message]

"<client> :This server was created <datetime>"

rplCreatedMessage :: Lens' RplCreated Message

rplCreatedClient :: Lens' RplCreated Client

type RplMyinfo = Msg "004" '[Client, Hostname, Text, Modes, Modes, Maybe Modes]

"<client> <servername> <version> <available user modes> 
<available channel modes> [<channel modes with a parameter>]"

rplMyinfoCmodesParam :: Lens' RplMyinfo (Maybe Modes)

rplMyinfoCmodes :: Lens' RplMyinfo Modes

rplMyinfoUmodes :: Lens' RplMyinfo Modes

rplMyinfoVersion :: Lens' RplMyinfo Text

rplMyinfoServer :: Lens' RplMyinfo Hostname

rplMyinfoClient :: Lens' RplMyinfo Client

type RplIsupport = Msg "005" '[Client, SList Token, Message]

"<client> <1-13 tokens> :are supported by this server"

rplIsupportMessage :: Lens' RplIsupport Message

rplIsupportTokens :: Lens' RplIsupport (SList Token)

rplIsupportClient :: Lens' RplIsupport Client

type RplBounce = Msg "010" '[Client, Hostname, Int, Message]

"<client> <hostname> <port> :<info>"

rplBounceMessage :: Lens' RplBounce Message

rplBouncePort :: Lens' RplBounce Int

rplBounceHostname :: Lens' RplBounce Hostname

rplBounceClient :: Lens' RplBounce Client

type RplUmodeis = Msg "221" '[Client, Modes]

"<client> <user modes>"

rplUmodeisUmodes :: Lens' RplUmodeis Modes

rplUmodeisClient :: Lens' RplUmodeis Client

type RplLuserclient = Msg "251" '[Client, Message]

"<client> :There are <u> users and <i> invisible on <s> servers"

rplLuserclientMessage :: Lens' RplLuserclient Message

rplLuserclientClient :: Lens' RplLuserclient Client

type RplLuserop = Msg "252" '[Client, Int, Message]

"<client> <ops> :operator(s) online"

rplLuseropMessage :: Lens' RplLuserop Message

rplLuseropOps :: Lens' RplLuserop Int

rplLuseropClient :: Lens' RplLuserop Client

type RplLuserunknown = Msg "253" '[Client, Int, Message]

"<client> <connections> :unknown connection(s)"

rplLuserunknownMessage :: Lens' RplLuserunknown Message

rplLuserunknownConnections :: Lens' RplLuserunknown Int

rplLuserunknownClient :: Lens' RplLuserunknown Client

type RplLuserchannels = Msg "254" '[Client, Int, Message]

"<client> <channels> :channels formed"

rplLuserchannelsMessage :: Lens' RplLuserchannels Message

rplLuserchannelsChannels :: Lens' RplLuserchannels Int

rplLuserchannelsClient :: Lens' RplLuserchannels Client

type RplLuserme = Msg "255" '[Client, Message]

"<client> :I have <c> clients and <s> servers"

rplLusermeMessage :: Lens' RplLuserme Message

rplLusermeClient :: Lens' RplLuserme Client

type RplAdminme = Msg "256" '[Client, Maybe Hostname, Message]

"<client> [<server>] :Administrative info"

rplAdminmeMessage :: Lens' RplAdminme Message

rplAdminmeServer :: Lens' RplAdminme (Maybe Hostname)

rplAdminmeClient :: Lens' RplAdminme Client

type RplAdminemail = Msg "259" '[Client, Message]

"<client> :<info>"

rplAdminemailMessage :: Lens' RplAdminemail Message

rplAdminemailClient :: Lens' RplAdminemail Client

type RplTryagain = Msg "263" '[Client, Text, Message]

"<client> <command> :Please wait a while and try again."

rplTryagainMessage :: Lens' RplTryagain Message

rplTryagainCommand :: Lens' RplTryagain Text

rplTryagainClient :: Lens' RplTryagain Client

type RplLocalusers = Msg "265" '[Client, Maybe (Int, Int), Message]

"<client> [<u> <m>] :Current local users <u>, max <m>"

rplLocalusersMessage :: Lens' RplLocalusers Message

rplLocalusersUsers :: Lens' RplLocalusers (Maybe (Int, Int))

rplLocalusersClient :: Lens' RplLocalusers Client

rplLocalusersCurrent :: Traversal' RplLocalusers Int

rplLocalusersMaximum :: Traversal' RplLocalusers Int

type RplGlobalusers = Msg "266" '[Client, Maybe (Int, Int), Message]

"<client> [<u> <m>] :Current global users <u>, max <m>"

rplGlobalusersMessage :: Lens' RplGlobalusers Message

rplGlobalusersUsers :: Lens' RplGlobalusers (Maybe (Int, Int))

rplGlobalusersClient :: Lens' RplGlobalusers Client

rplGlobalusersCurrent :: Traversal' RplGlobalusers Int

rplGlobalusersMaximum :: Traversal' RplGlobalusers Int

type RplWhoiscertfp = Msg "276" '[Client, Nickname, Message]

"<client> <nick> :has client certificate fingerprint <fingerprint>"

rplWhoiscertfpMessage :: Lens' RplWhoiscertfp Message

rplWhoiscertfpNick :: Lens' RplWhoiscertfp Nickname

rplWhoiscertfpClient :: Lens' RplWhoiscertfp Client

type RplNone = Msg "300" '[Void]

Undefined format

type RplAway = Msg "301" '[Client, Nickname, Message]

"<client> <nick> :<message>"

rplAwayMessage :: Lens' RplAway Message

rplAwayNick :: Lens' RplAway Nickname

rplAwayClient :: Lens' RplAway Client

type RplUserhost = Msg "302" '[Client, CList UReply]

"<client> :[<reply>{ <reply>}]"

rplUserhostReplies :: Lens' RplUserhost (CList UReply)

rplUserhostClient :: Lens' RplUserhost Client

type RplIson = Msg "303" '[Client, CList Nickname]

"<client> :[<nickname>{ <nickname>}]"

rplIsonNicks :: Lens' RplIson (CList Nickname)

rplIsonClient :: Lens' RplIson Client

type RplUnaway = Msg "305" '[Client, Message]

"<client> :You are no longer marked as being away"

rplUnawayMessage :: Lens' RplUnaway Message

rplUnawayClient :: Lens' RplUnaway Client

type RplNowaway = Msg "306" '[Client, Message]

"<client> :You have been marked as being away"

rplNowawayMessage :: Lens' RplNowaway Message

rplNowawayClient :: Lens' RplNowaway Client

type RplWhoisuser = Msg "311" '[Client, Nickname, Username, Hostname, Unused "*", Message]

"<client> <nick> <username> <host> * :<realname>"

rplWhoisuserMessage :: Lens' RplWhoisuser Message

rplWhoisuserUnused :: Lens' RplWhoisuser (Unused "*")

rplWhoisuserHost :: Lens' RplWhoisuser Hostname

rplWhoisuserUsername :: Lens' RplWhoisuser Username

rplWhoisuserNick :: Lens' RplWhoisuser Nickname

rplWhoisuserClient :: Lens' RplWhoisuser Client

type RplWhoisserver = Msg "312" '[Client, Nickname, Hostname, Message]

"<client> <nick> <server> :<server info>"

rplWhoisserverMessage :: Lens' RplWhoisserver Message

rplWhoisserverServer :: Lens' RplWhoisserver Hostname

rplWhoisserverNick :: Lens' RplWhoisserver Nickname

rplWhoisserverClient :: Lens' RplWhoisserver Client

type RplWhoisoperator = Msg "313" '[Client, Nickname, Message]

"<client> <nick> :is an Irc operator"

rplWhoisoperatorMessage :: Lens' RplWhoisoperator Message

rplWhoisoperatorNick :: Lens' RplWhoisoperator Nickname

rplWhoisoperatorClient :: Lens' RplWhoisoperator Client

type RplWhowasuser = Msg "314" '[Client, Nickname, Username, Hostname, Unused "*", Message]

"<client> <nick> <username> <host> * :<realname>"

rplWhowasuserMessage :: Lens' RplWhowasuser Message

rplWhowasuserUnused :: Lens' RplWhowasuser (Unused "*")

rplWhowasuserHost :: Lens' RplWhowasuser Hostname

rplWhowasuserUsername :: Lens' RplWhowasuser Username

rplWhowasuserNick :: Lens' RplWhowasuser Nickname

rplWhowasuserClient :: Lens' RplWhowasuser Client

type RplWhoisidle = Msg "317" '[Client, Nickname, Int, Maybe POSIXTime, Message]

"<client> <nick> <secs> [<signon>] :seconds idle, signon time"

rplWhoisidleMessage :: Lens' RplWhoisidle Message

rplWhoisidleSignon :: Lens' RplWhoisidle (Maybe POSIXTime)

rplWhoisidleSecs :: Lens' RplWhoisidle Int

rplWhoisidleNick :: Lens' RplWhoisidle Nickname

rplWhoisidleClient :: Lens' RplWhoisidle Client

type RplEndofwhois = Msg "318" '[Client, Nickname, Message]

"<client> <nick> :End of /Whois list"

rplEndofwhoisMessage :: Lens' RplEndofwhois Message

rplEndofwhoisNick :: Lens' RplEndofwhois Nickname

rplEndofwhoisClient :: Lens' RplEndofwhois Client

type RplWhoischannels = Msg "319" '[Client, Nickname, CList (Member Channel)]

"<client> <nick> :[prefix]<channel>{ [prefix]<channel>}"

rplWhoischannelsChannels :: Lens' RplWhoischannels (CList (Member Channel))

rplWhoischannelsNick :: Lens' RplWhoischannels Nickname

rplWhoischannelsClient :: Lens' RplWhoischannels Client

type RplListstart = Msg "321" '[Client]

"<client> Channel :Users  Name"

rplListstartClient :: Lens' RplListstart Client

type RplList = Msg "322" '[Client, Channel, Int, Message]

"<client> <channel> <visible clients> :<topic>"

rplListMessage :: Lens' RplList Message

rplListVisibleClients :: Lens' RplList Int

rplListChannel :: Lens' RplList Channel

rplListClient :: Lens' RplList Client

type RplListend = Msg "323" '[Client, Message]

"<client> :End of /List"

rplListendMessage :: Lens' RplListend Message

rplListendClient :: Lens' RplListend Client

type RplChannelmodeis = Msg "324" '[Client, Channel, ByteString]

"<client> <channel> <modestring> <mode arguments>..."

rplChannelmodeisRawmode :: Lens' RplChannelmodeis ByteString

rplChannelmodeisChannel :: Lens' RplChannelmodeis Channel

rplChannelmodeisClient :: Lens' RplChannelmodeis Client

rplChannelmodeisMode :: ServerModes -> Fold RplChannelmodeis ModeStr

type RplNotopic = Msg "331" '[Client, Channel, Message]

"<client> <channel> :No topic is set"

rplNotopicMessage :: Lens' RplNotopic Message

rplNotopicChannel :: Lens' RplNotopic Channel

rplNotopicClient :: Lens' RplNotopic Client

type RplTopic = Msg "332" '[Client, Channel, Message]

"<client> <channel> :<topic>"

rplTopicMessage :: Lens' RplTopic Message

rplTopicChannel :: Lens' RplTopic Channel

rplTopicClient :: Lens' RplTopic Client

type RplTopictime = Msg "333" '[Client, Channel, Nickname, POSIXTime]

"<client> <channel> <nick> <setat>"

rplTopictimeSetAt :: Lens' RplTopictime POSIXTime

rplTopictimeNick :: Lens' RplTopictime Nickname

rplTopictimeChannel :: Lens' RplTopictime Channel

rplTopictimeClient :: Lens' RplTopictime Client

type RplInviting = Msg "341" '[Client, Channel, Nickname]

"<client> <channel> <nick>"

rplInvitingNick :: Lens' RplInviting Nickname

rplInvitingChannel :: Lens' RplInviting Channel

rplInvitingClient :: Lens' RplInviting Client

type RplInvitelist = Msg "346" '[Client, Channel, Mask]

"<client> <channel> <mask>"

rplInvitelistMask :: Lens' RplInvitelist Mask

rplInvitelistChannel :: Lens' RplInvitelist Channel

rplInvitelistClient :: Lens' RplInvitelist Client

type RplEndofinvitelist = Msg "349" '[Client, Channel, Message]

"<client> <channel> :End of channel invite list"

rplEndofinvitelistMessage :: Lens' RplEndofinvitelist Message

rplEndofinvitelistChannel :: Lens' RplEndofinvitelist Channel

rplEndofinvitelistClient :: Lens' RplEndofinvitelist Client

type RplExceptlist = Msg "348" '[Client, Channel, Mask]

"<client> <channel> <mask>"

rplExceptlistMask :: Lens' RplExceptlist Mask

rplExceptlistChannel :: Lens' RplExceptlist Channel

rplExceptlistClient :: Lens' RplExceptlist Client

type RplEndofexceptlist = Msg "349" '[Client, Channel, Message]

"<client> <channel> :End of channel exception list"

rplEndofexceptlistMessage :: Lens' RplEndofexceptlist Message

rplEndofexceptlistChannel :: Lens' RplEndofexceptlist Channel

rplEndofexceptlistClient :: Lens' RplEndofexceptlist Client

type RplVersion = Msg "351" '[Client, Text, Hostname, Message]

"<client> <version> <server> :<comments>"

rplVersionMessage :: Lens' RplVersion Message

rplVersionServer :: Lens' RplVersion Hostname

rplVersionVersion :: Lens' RplVersion Text

rplVersionClient :: Lens' RplVersion Client

type RplNamreply = Msg "353" '[Client, Char, Channel, CList (Member Nickname)]

"<client> <symbol> <channel> :[prefix]<nick>{ [prefix]<nick>}"

rplNamreplyNicks :: Lens' RplNamreply (CList (Member Nickname))

rplNamreplyChannel :: Lens' RplNamreply Channel

rplNamreplySymbol :: Lens' RplNamreply Char

rplNamreplyClient :: Lens' RplNamreply Client

type RplEndofnames = Msg "366" '[Client, Channel, Message]

"<client> <channel> :End of /Names list"

rplEndofnamesMessage :: Lens' RplEndofnames Message

rplEndofnamesChannel :: Lens' RplEndofnames Channel

rplEndofnamesClient :: Lens' RplEndofnames Client

type RplBanlist = Msg "367" '[Client, Channel, Mask]

"<client> <channel> <mask>"

rplBanlistMask :: Lens' RplBanlist Mask

rplBanlistChannel :: Lens' RplBanlist Channel

rplBanlistClient :: Lens' RplBanlist Client

type RplEndofbanlist = Msg "368" '[Client, Channel, Message]

"<client> <channel> :End of channel ban list"

rplEndofbanlistMessage :: Lens' RplEndofbanlist Message

rplEndofbanlistChannel :: Lens' RplEndofbanlist Channel

rplEndofbanlistClient :: Lens' RplEndofbanlist Client

type RplEndofwhowas = Msg "369" '[Client, Nickname, Message]

"<client> <nick> :End of Whowas"

rplEndofwhowasMessage :: Lens' RplEndofwhowas Message

rplEndofwhowasNick :: Lens' RplEndofwhowas Nickname

rplEndofwhowasClient :: Lens' RplEndofwhowas Client

type RplMotdstart = Msg "375" '[Client, Unused ":-", Hostname]

"<client> :- <server> Message of the day - "

rplMotdstartServer :: Lens' RplMotdstart Hostname

rplMotdstartUnused :: Lens' RplMotdstart (Unused ":-")

rplMotdstartClient :: Lens' RplMotdstart Client

type RplMotd = Msg "372" '[Client, Message]

"<client> :<line of the motd>"

rplMotdMessage :: Lens' RplMotd Message

rplMotdClient :: Lens' RplMotd Client

type RplEndofmotd = Msg "376" '[Client, Message]

"<client> :End of /Motd command."

rplEndofmotdMessage :: Lens' RplEndofmotd Message

rplEndofmotdClient :: Lens' RplEndofmotd Client

type RplYoureoper = Msg "381" '[Client, Message]

"<client> :You are now an Irc operator"

rplYoureoperMessage :: Lens' RplYoureoper Message

rplYoureoperClient :: Lens' RplYoureoper Client

type RplRehashing = Msg "382" '[Client, Text, Message]

"<client> <config file> :Rehashing"

rplRehashingMessage :: Lens' RplRehashing Message

rplRehashingConfigFile :: Lens' RplRehashing Text

rplRehashingClient :: Lens' RplRehashing Client

type ErrUnknownerror = Msg "400" '[Client, SList Text, Message]

"<client> <command>{ <subcommand>} :<info>"

errUnknownerrorMessage :: Lens' ErrUnknownerror Message

errUnknownerrorCommands :: Lens' ErrUnknownerror (SList Text)

errUnknownerrorClient :: Lens' ErrUnknownerror Client

type ErrNosuchnick = Msg "401" '[Client, Nickname, Message]

"<client> <nickname> :No such nick/channel"

errNosuchnickMessage :: Lens' ErrNosuchnick Message

errNosuchnickNickname :: Lens' ErrNosuchnick Nickname

errNosuchnickClient :: Lens' ErrNosuchnick Client

type ErrNosuchserver = Msg "402" '[Client, Hostname, Message]

"<client> <server name> :No such server"

errNosuchserverMessage :: Lens' ErrNosuchserver Message

errNosuchserverServer :: Lens' ErrNosuchserver Hostname

errNosuchserverClient :: Lens' ErrNosuchserver Client

type ErrNosuchchannel = Msg "403" '[Client, Channel, Message]

"<client> <channel> :No such channel"

errNosuchchannelMessage :: Lens' ErrNosuchchannel Message

errNosuchchannelChannel :: Lens' ErrNosuchchannel Channel

errNosuchchannelClient :: Lens' ErrNosuchchannel Client

type ErrCannotsendtochan = Msg "404" '[Client, Channel, Message]

"<client> <channel> :Cannot send to channel"

errCannotsendtochanMessage :: Lens' ErrCannotsendtochan Message

errCannotsendtochanChannel :: Lens' ErrCannotsendtochan Channel

errCannotsendtochanClient :: Lens' ErrCannotsendtochan Client

type ErrToomanychannels = Msg "405" '[Client, Channel, Message]

"<client> <channel> :You have joined too many channels"

errToomanychannelsMessage :: Lens' ErrToomanychannels Message

errToomanychannelsChannel :: Lens' ErrToomanychannels Channel

errToomanychannelsClient :: Lens' ErrToomanychannels Client

type ErrUnknowncommand = Msg "421" '[Client, Text, Message]

"<client> <command> :Unknown command"

errUnknowncommandMessage :: Lens' ErrUnknowncommand Message

errUnknowncommandCommand :: Lens' ErrUnknowncommand Text

errUnknowncommandClient :: Lens' ErrUnknowncommand Client

type ErrNomotd = Msg "422" '[Client, Message]

"<client> :Motd File is missing"

errNomotdMessage :: Lens' ErrNomotd Message

errNomotdClient :: Lens' ErrNomotd Client

type ErrErroneusnickname = Msg "432" '[Client, Nickname, Message]

"<client> <nick> :Erroneus nickname"

errErroneusnicknameMessage :: Lens' ErrErroneusnickname Message

errErroneusnicknameNick :: Lens' ErrErroneusnickname Nickname

errErroneusnicknameClient :: Lens' ErrErroneusnickname Client

type ErrNicknameinuse = Msg "433" '[Client, Nickname, Message]

"<client> <nick> :Nickname is already in use"

errNicknameinuseMessage :: Lens' ErrNicknameinuse Message

errNicknameinuseNick :: Lens' ErrNicknameinuse Nickname

errNicknameinuseClient :: Lens' ErrNicknameinuse Client

type ErrNotregistered = Msg "451" '[Client, Message]

"<client> :You have not registered"

errNotregisteredMessage :: Lens' ErrNotregistered Message

errNotregisteredClient :: Lens' ErrNotregistered Client

type ErrNeedmoreparams = Msg "461" '[Client, Text, Message]

"<client> <command> :Not enough parameters"

errNeedmoreparamsMessage :: Lens' ErrNeedmoreparams Message

errNeedmoreparamsCommand :: Lens' ErrNeedmoreparams Text

errNeedmoreparamsClient :: Lens' ErrNeedmoreparams Client

type ErrAlreadyregistered = Msg "462" '[Client, Message]

"<client> :You may not reregister"

errAlreadyregisteredMessage :: Lens' ErrAlreadyregistered Message

errAlreadyregisteredClient :: Lens' ErrAlreadyregistered Client

type ErrPasswdmismatch = Msg "464" '[Client, Message]

"<client> :Password incorrect"

errPasswdmismatchMessage :: Lens' ErrPasswdmismatch Message

errPasswdmismatchClient :: Lens' ErrPasswdmismatch Client

type ErrYourebannedcreep = Msg "465" '[Client, Message]

"<client> :You are banned from this server."

errYourebannedcreepMessage :: Lens' ErrYourebannedcreep Message

errYourebannedcreepClient :: Lens' ErrYourebannedcreep Client

type ErrChannelisfull = Msg "471" '[Client, Channel, Message]

"<client> <channel> :Cannot join channel (+l)"

errChannelisfullMessage :: Lens' ErrChannelisfull Message

errChannelisfullChannel :: Lens' ErrChannelisfull Channel

errChannelisfullClient :: Lens' ErrChannelisfull Client

type ErrUnknownmode = Msg "472" '[Client, Char, Message]

"<client> <modechar> :is unknown mode char to me"

errUnknownmodeMessage :: Lens' ErrUnknownmode Message

errUnknownmodeModeChar :: Lens' ErrUnknownmode Char

errUnknownmodeClient :: Lens' ErrUnknownmode Client

type ErrInviteonlychan = Msg "473" '[Client, Channel, Message]

"<client> <channel> :Cannot join channel (+i)"

errInviteonlychanMessage :: Lens' ErrInviteonlychan Message

errInviteonlychanChannel :: Lens' ErrInviteonlychan Channel

errInviteonlychanClient :: Lens' ErrInviteonlychan Client

type ErrBannedfromchan = Msg "474" '[Client, Channel, Message]

"<client> <channel> :Cannot join channel (+b)"

errBannedfromchanMessage :: Lens' ErrBannedfromchan Message

errBannedfromchanChannel :: Lens' ErrBannedfromchan Channel

errBannedfromchanClient :: Lens' ErrBannedfromchan Client

type ErrBadchannelkey = Msg "475" '[Client, Channel, Message]

"<client> <channel> :Cannot join channel (+k)"

errBadchannelkeyMessage :: Lens' ErrBadchannelkey Message

errBadchannelkeyChannel :: Lens' ErrBadchannelkey Channel

errBadchannelkeyClient :: Lens' ErrBadchannelkey Client

type ErrNoprivileges = Msg "481" '[Client, Message]

"<client> :Permission Denied- You're not an Irc operator"

errNoprivilegesMessage :: Lens' ErrNoprivileges Message

errNoprivilegesClient :: Lens' ErrNoprivileges Client

type ErrChanoprivsneeded = Msg "482" '[Client, Channel, Message]

"<client> <channel> :You're not channel operator"

errChanoprivsneededMessage :: Lens' ErrChanoprivsneeded Message

errChanoprivsneededChannel :: Lens' ErrChanoprivsneeded Channel

errChanoprivsneededClient :: Lens' ErrChanoprivsneeded Client

type ErrCantkillserver = Msg "483" '[Client, Message]

"<client> :You cant kill a server!"

errCantkillserverMessage :: Lens' ErrCantkillserver Message

errCantkillserverClient :: Lens' ErrCantkillserver Client

type ErrNooperhost = Msg "491" '[Client, Message]

"<client> :No O-lines for your host"

errNooperhostMessage :: Lens' ErrNooperhost Message

errNooperhostClient :: Lens' ErrNooperhost Client

type ErrUmodeunknownflag = Msg "501" '[Client, Message]

"<client> :Unknown Mode flag"

errUmodeunknownflagMessage :: Lens' ErrUmodeunknownflag Message

errUmodeunknownflagClient :: Lens' ErrUmodeunknownflag Client

type ErrUsersdontmatch = Msg "502" '[Client, Message]

"<client> :Cant change mode for other users"

errUsersdontmatchMessage :: Lens' ErrUsersdontmatch Message

errUsersdontmatchClient :: Lens' ErrUsersdontmatch Client

type RplStarttls = Msg "670" '[Client, Message]

"<client> :Starttls successful, proceed with Tls handshake"

rplStarttlsMessage :: Lens' RplStarttls Message

rplStarttlsClient :: Lens' RplStarttls Client

type ErrStarttls = Msg "691" '[Client, Message]

"<client> :Starttls failed (Wrong moon phase)"

errStarttlsMessage :: Lens' ErrStarttls Message

errStarttlsClient :: Lens' ErrStarttls Client

type ErrNoprivs = Msg "723" '[Client, Text, Message]

"<client> <priv> :Insufficient oper privileges."

errNoprivsMessage :: Lens' ErrNoprivs Message

errNoprivsPriv :: Lens' ErrNoprivs Text

errNoprivsClient :: Lens' ErrNoprivs Client

type RplLoggedin = Msg "900" '[Client, Host, Text, Message]

"<client> <nick>!<user>@<host> <account> 
:You are now logged in as <username>"

rplLoggedinMessage :: Lens' RplLoggedin Message

rplLoggedinAccount :: Lens' RplLoggedin Text

rplLoggedinHost :: Lens' RplLoggedin Host

rplLoggedinClient :: Lens' RplLoggedin Client

type RplLoggedout = Msg "901" '[Client, Host, Message]

"<client> <nick>!<user>@<host> :You are now logged out"

rplLoggedoutMessage :: Lens' RplLoggedout Message

rplLoggedoutHost :: Lens' RplLoggedout Host

rplLoggedoutClient :: Lens' RplLoggedout Client

type ErrNicklocked = Msg "902" '[Client, Message]

"<client> :You must use a nick assigned to you"

errNicklockedMessage :: Lens' ErrNicklocked Message

errNicklockedClient :: Lens' ErrNicklocked Client

type RplSaslsuccess = Msg "903" '[Client, Message]

"<client> :Sasl authentication successful"

rplSaslsuccessMessage :: Lens' RplSaslsuccess Message

rplSaslsuccessClient :: Lens' RplSaslsuccess Client

type ErrSaslfail = Msg "904" '[Client, Message]

"<client> :Sasl authentication failed"

errSaslfailMessage :: Lens' ErrSaslfail Message

errSaslfailClient :: Lens' ErrSaslfail Client

type ErrSasltoolong = Msg "905" '[Client, Message]

"<client> :Sasl message too long"

errSasltoolongMessage :: Lens' ErrSasltoolong Message

errSasltoolongClient :: Lens' ErrSasltoolong Client

type ErrSaslaborted = Msg "906" '[Client, Message]

"<client> :Sasl authentication aborted"

errSaslabortedMessage :: Lens' ErrSaslaborted Message

errSaslabortedClient :: Lens' ErrSaslaborted Client

type ErrSaslalready = Msg "907" '[Client, Message]

"<client> :You have already authenticated using Sasl"

errSaslalreadyMessage :: Lens' ErrSaslalready Message

errSaslalreadyClient :: Lens' ErrSaslalready Client

type RplSaslmechs = Msg "908" '[Client, [Text], Message]

"<client> <mechanisms> :are available Sasl mechanisms"

rplSaslmechsMessage :: Lens' RplSaslmechs Message

rplSaslmechsMechanisms :: Lens' RplSaslmechs [Text]

rplSaslmechsClient :: Lens' RplSaslmechs Client