slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check: fix some string/text bitrot

Browse Source
This commit is contained in:
Simon Michael 2017-09-11 09:08:00 -07:00
parent 4f55f8dd93
commit 15a24da126
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/hledger-check.hs
View File

@ -471,5 +471,5 @@ sameish f = (==) `on` f . toGregorian . H.postingDate
-- | Helper for 'Compare' and 'Connect' parsers. -- | Helper for 'Compare' and 'Connect' parsers.
gostringsp :: Monad m => [(String, a)] -> H.TextParser m a 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 gostringsp [] = mzero