diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 01:02:14 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 01:02:14 +0000 |
| commit | c1da385941598c8e31f0e3b72f34797afe964bc9 (patch) | |
| tree | 149ba6405414360d83f24f1aab6c3a2644c67510 /bbcode/test/Text/BBCode | |
| parent | fea4f8690111a8bbb65845fb61961cfc0a9802cc (diff) | |
| download | thermoprint-c1da385941598c8e31f0e3b72f34797afe964bc9.tar thermoprint-c1da385941598c8e31f0e3b72f34797afe964bc9.tar.gz thermoprint-c1da385941598c8e31f0e3b72f34797afe964bc9.tar.bz2 thermoprint-c1da385941598c8e31f0e3b72f34797afe964bc9.tar.xz thermoprint-c1da385941598c8e31f0e3b72f34797afe964bc9.zip | |
minor code cleanup
Diffstat (limited to 'bbcode/test/Text/BBCode')
| -rw-r--r-- | bbcode/test/Text/BBCode/LexerSpec.hs | 2 |
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 | |||
| 44 | zipWithM_ example [1..] examples | 44 | zipWithM_ example [1..] examples |
| 45 | where | 45 | where |
| 46 | example n (s, ts) = let str = "Example " <> show n | 46 | example n (s, ts) = let str = "Example " <> show n |
| 47 | in specify str $ (tokenize s == Right ts) | 47 | in specify str (tokenize s == Right ts) |
| 48 | 48 | ||
| 49 | prop_token :: Text -> Property | 49 | prop_token :: Text -> Property |
| 50 | -- ^ prop> (mconcat . map coToken) <$> tokenize x == Right x | 50 | -- ^ prop> (mconcat . map coToken) <$> tokenize x == Right x |