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 ++------- bbcode/test/Text/BBCode/LexerSpec.hs | 2 +- 2 files changed, 3 insertions(+), 8 deletions(-) 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 diff --git a/bbcode/test/Text/BBCode/LexerSpec.hs b/bbcode/test/Text/BBCode/LexerSpec.hs index 8b95874..b0b77d9 100644 --- a/bbcode/test/Text/BBCode/LexerSpec.hs +++ b/bbcode/test/Text/BBCode/LexerSpec.hs @@ -44,7 +44,7 @@ spec = do zipWithM_ example [1..] examples where example n (s, ts) = let str = "Example " <> show n - in specify str $ (tokenize s == Right ts) + in specify str (tokenize s == Right ts) prop_token :: Text -> Property -- ^ prop> (mconcat . map coToken) <$> tokenize x == Right x -- cgit v1.2.3