From c07b9562e72133ccf5a64e880beb53cb8499a642 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 8 Oct 2015 20:39:37 +0200
Subject: Parse IRC messages

---
 Hirc/Parser.hs | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 Hirc/Parser.hs

(limited to 'Hirc/Parser.hs')

diff --git a/Hirc/Parser.hs b/Hirc/Parser.hs
new file mode 100644
index 0000000..2cb2451
--- /dev/null
+++ b/Hirc/Parser.hs
@@ -0,0 +1,23 @@
+module Hirc.Parser where
+
+import Data.Char
+import Hirc.Types
+import Text.Parsec
+import Text.Parsec.String
+
+message :: Parser Message
+message =
+    Message <$> optionMaybe (char ':' *> prefix) <* spaces1 <*> command <*> params
+  where
+    spaces1 = skipMany1 space
+    prefix = Prefix <$> nick
+                    <*> optionMaybe (char '!' *> user)
+                    <*> optionMaybe (char '@' *> host)
+    nick = many1 (noneOf " !@")
+    user = many1 (noneOf " !@")
+    host = many1 (noneOf " !@")
+    command = UnknownCommand <$> many1 nonspace
+    params = many1 (spaces1 *> (trailing <|> middle))
+    trailing = char ':' *> many1 anyChar
+    middle = many1 nonspace
+    nonspace = satisfy (not . isSpace)
-- 
cgit v1.2.3