1 files changed, 8 insertions, 0 deletions
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)