From 66ea960c626853c2ae15124fd8c71b5cb5df93c8 Mon Sep 17 00:00:00 2001 From: tv Date: Sat, 10 Oct 2015 02:34:13 +0200 Subject: Hirc.Parser.message: accept empty trailing --- Hirc/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Hirc/Parser.hs b/Hirc/Parser.hs index ef34270..f52564b 100644 --- a/Hirc/Parser.hs +++ b/Hirc/Parser.hs @@ -18,6 +18,6 @@ message = host = many1 (noneOf " !@") command = many1 nonspace params = many1 (spaces1 *> (trailing <|> middle)) - trailing = char ':' *> many1 anyChar + trailing = char ':' *> many anyChar middle = many1 nonspace nonspace = satisfy (not . isSpace) -- cgit v1.2.3