request :: BotNick -> RequestParser Request
request botnick = do
    void $ stringToken (botnick ++ ": ")
    void $ stringToken "asked "
    Parse.choice [helpRequest, changeRequest] <* Parse.eof
request :: BotNick -> RequestParser Request
request botnick = do
    void $ stringToken (botnick ++ ": ")
    void $ stringToken "asked "
    Parse.choice [helpRequest, changeRequest] <* Parse.eof
request botnick = do
    void $ stringToken (botnick ++ ": ")
    void $ stringToken "asked "
    Parse.choice [helpRequest, changeRequest] <* Parse.eof