minor code cleanup

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