From c1da385941598c8e31f0e3b72f34797afe964bc9 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 01:02:14 +0000 Subject: minor code cleanup --- bbcode/src/Text/BBCode/Lexer.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'bbcode/src') diff --git a/bbcode/src/Text/BBCode/Lexer.hs b/bbcode/src/Text/BBCode/Lexer.hs index 01f47f0..a7294fe 100644 --- a/bbcode/src/Text/BBCode/Lexer.hs +++ b/bbcode/src/Text/BBCode/Lexer.hs @@ -12,20 +12,15 @@ module Text.BBCode.Lexer import Data.Attoparsec.Text import Data.Text (Text) -import qualified Data.Text as T (singleton, head, last, tail, null) +import qualified Data.Text as T (singleton) import Control.Applicative -import Test.QuickCheck (Arbitrary(..), CoArbitrary, genericShrink) -import Test.QuickCheck.Gen (oneof, suchThat) -import Test.QuickCheck.Instances -import GHC.Generics (Generic) - -- | Our lexicographical unit data BBToken = BBOpen Text -- ^ Tag open | BBClose Text -- ^ Tag close | BBStr Text -- ^ Content of a tag - deriving (Generic, Eq, Show) + deriving (Eq, Show) token :: Parser BBToken -- ^ Tokenizer -- cgit v1.2.3