diff options
| author | tv <tv@shackspace.de> | 2015-10-17 19:08:15 +0200 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-10-17 19:25:29 +0200 |
| commit | ef344c57945d455c6752c2032c701d7f9315f69b (patch) | |
| tree | 21139cf0cd844eb661e80978c04f91de48b93907 /Hirc/Parser.hs | |
| parent | 3a2775bc5bd132109c8cfbd84b11a1e7cf633311 (diff) | |
replace hirc.hs by main.hs
Diffstat (limited to 'Hirc/Parser.hs')
| -rw-r--r-- | Hirc/Parser.hs | 8 |
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) |