diff options
Diffstat (limited to 'users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs')
| -rw-r--r-- | users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs b/users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs index 8ea5186c50..2a3873c3b0 100644 --- a/users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs +++ b/users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs @@ -62,7 +62,7 @@ test = testGroup "Xanthous.Messages.Template" ] ] where - genLiteral = filter (`notElem` ['\\', '{']) <$> arbitrary + genLiteral = pack . filter (`notElem` ['\\', '{']) <$> arbitrary parseCase name input expected = testCase name $ testParse template input @?= Right expected testParse p = over _Left errorBundlePretty . runParser p "<test>" |