diff options
Diffstat (limited to 'Hirc/Parser.hs')
| -rw-r--r-- | Hirc/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Hirc/Parser.hs b/Hirc/Parser.hs index 2cb2451..ef34270 100644 --- a/Hirc/Parser.hs +++ b/Hirc/Parser.hs @@ -7,7 +7,7 @@ import Text.Parsec.String message :: Parser Message message = - Message <$> optionMaybe (char ':' *> prefix) <* spaces1 <*> command <*> params + Message <$> optionMaybe (char ':' *> prefix <* spaces1) <*> command <*> params where spaces1 = skipMany1 space prefix = Prefix <$> nick @@ -16,7 +16,7 @@ message = nick = many1 (noneOf " !@") user = many1 (noneOf " !@") host = many1 (noneOf " !@") - command = UnknownCommand <$> many1 nonspace + command = many1 nonspace params = many1 (spaces1 *> (trailing <|> middle)) trailing = char ':' *> many1 anyChar middle = many1 nonspace |