From 15a24da126c9fc2f95167327afb70510259623c3 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 11 Sep 2017 09:08:00 -0700
Subject: [PATCH] check: fix some string/text bitrot

---
 bin/hledger-check.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/hledger-check.hs b/bin/hledger-check.hs
index 24cb65902..611b88998 100755
--- a/bin/hledger-check.hs
+++ b/bin/hledger-check.hs
@@ -471,5 +471,5 @@ sameish f = (==) `on` f . toGregorian . H.postingDate
 
 -- | Helper for 'Compare' and 'Connect' parsers.
 gostringsp :: Monad m => [(String, a)] -> H.TextParser m a
-gostringsp ((s,a):rest) = P.try (P.string s *> pure a) `mplus` gostringsp rest
+gostringsp ((s,a):rest) = P.try (P.string (pack s) *> pure a) `mplus` gostringsp rest
 gostringsp [] = mzero