about summary refs log tree commit diff
path: root/users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs')
-rw-r--r--users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs2
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 8ea5186c5050..2a3873c3b016 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>"