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

hledger-check: compatibility with stack8.0.yaml

Browse Source
This commit is contained in:
Mykola Orliuk 2017-11-29 11:05:58 +01:00 committed by Simon Michael
parent 4228203740
commit d05bdd5b4e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bin/hledger-check.hs
View File

@ -82,6 +82,7 @@ import Control.Arrow (first)
import Control.Monad (mplus, mzero, unless, void) import Control.Monad (mplus, mzero, unless, void)
import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.State.Strict (runStateT) import Control.Monad.Trans.State.Strict (runStateT)
import Data.String (fromString)
import Data.Function (on) import Data.Function (on)
import Data.Functor.Identity (Identity(..)) import Data.Functor.Identity (Identity(..))
import Data.List (foldl', groupBy, intercalate, nub, sortOn) 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. -- | 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 (pack s) *> pure a) `mplus` gostringsp rest gostringsp ((s,a):rest) = P.try (P.string (fromString s) *> pure a) `mplus` gostringsp rest
gostringsp [] = mzero gostringsp [] = mzero