From d05bdd5b4e722b1c948f14a392706fe393ac61a2 Mon Sep 17 00:00:00 2001 From: Mykola Orliuk Date: Wed, 29 Nov 2017 11:05:58 +0100 Subject: [PATCH] hledger-check: compatibility with stack8.0.yaml --- bin/hledger-check.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/bin/hledger-check.hs b/bin/hledger-check.hs index 611b88998..0dca36daf 100755 --- a/bin/hledger-check.hs +++ b/bin/hledger-check.hs @@ -82,6 +82,7 @@ import Control.Arrow (first) import Control.Monad (mplus, mzero, unless, void) import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.State.Strict (runStateT) +import Data.String (fromString) import Data.Function (on) import Data.Functor.Identity (Identity(..)) import Data.List (foldl', groupBy, intercalate, nub, sortOn) @@ -471,5 +472,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 (pack s) *> pure a) `mplus` gostringsp rest +gostringsp ((s,a):rest) = P.try (P.string (fromString s) *> pure a) `mplus` gostringsp rest gostringsp [] = mzero