From 6c7e14d2dcd3a3b124dc035e8feb8e79534cd66a Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 28 Jun 2020 16:43:20 -0400 Subject: feat(xan): Use Witherable in the prelude Install the witherable library, expose it in the prelude, and update all call sites that are broken by that change. This is a really nice library, and basically the ideal abstraction layer for what it does. Change-Id: I640e099318c1ecce0ad483bc336c379698bdab88 Reviewed-on: https://cl.tvl.fyi/c/depot/+/725 Reviewed-by: glittershark --- users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'users/glittershark/xanthous/test/Xanthous/Messages/TemplateSpec.hs') 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 "" -- cgit 1.4.1