From ef344c57945d455c6752c2032c701d7f9315f69b Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sat, 17 Oct 2015 19:08:15 +0200
Subject: replace hirc.hs by main.hs

---
 Hirc/Parser.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Hirc/Parser.hs')

diff --git a/Hirc/Parser.hs b/Hirc/Parser.hs
index f52564b..7014171 100644
--- a/Hirc/Parser.hs
+++ b/Hirc/Parser.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
 module Hirc.Parser where
 
 import Data.Char
@@ -21,3 +22,10 @@ message =
     trailing = char ':' *> many anyChar
     middle = many1 nonspace
     nonspace = satisfy (not . isSpace)
+
+
+
+nickNum :: Parser (String, Int)
+nickNum =
+  (,) <$> (many1 (satisfy (not . isDigit)))
+      <*> ((digitToInt <$> digit) <|> pure 0)
-- 
cgit v1.2.3