-- |zero or more spaces as defined by 'isSpace'
ircSpaces c = skipWhile (isIRCSpace c) <?> "optional space"
ircSpaces c = skipWhile (isIRCSpace c) <?> "optional space"
ircSpaces c = skipWhile (isIRCSpace c) <?> "optional space"