1 files changed, 1 insertions, 1 deletions

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