From e9ca12a945b1d1c068e9c31050e264cb20690db4 Mon Sep 17 00:00:00 2001 From: tv Date: Sun, 27 Jan 2019 03:23:17 +0100 Subject: Reaktor: add data Command --- src/Reaktor/Parser.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/Reaktor/Parser.hs') diff --git a/src/Reaktor/Parser.hs b/src/Reaktor/Parser.hs index f226ad5..6fbcce9 100644 --- a/src/Reaktor/Parser.hs +++ b/src/Reaktor/Parser.hs @@ -1,11 +1,13 @@ {-# LANGUAGE OverloadedStrings #-} module Reaktor.Parser where -import Prelude.Extended import Control.Applicative import Data.Attoparsec.Text import qualified Data.Char +import Data.String.Conversions (convertString) import qualified Data.Text.Extended as T +import Prelude.Extended +import Reaktor.IRC import Reaktor.Internal @@ -13,8 +15,9 @@ prefix :: Parser Text prefix = T.pack <$> many (satisfy Data.Char.isAlphaNum <|> satisfy (flip elem (":.-@/!~[]\\`_^{|}" :: String))) -command :: Parser Text -command = T.pack <$> many1 (satisfy Data.Char.isAlphaNum) +command :: Parser Command +command = + convertString . T.pack <$> many1 (satisfy Data.Char.isAlphaNum) nospcrlfcl :: Parser Char nospcrlfcl = -- cgit v1.2.3