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

bin: check: fix megaparsec-related build error

Browse Source
This commit is contained in:
Simon Michael 2017-07-31 08:09:05 -07:00
parent f4acef58b1
commit 2a3feb9288
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

@ -398,7 +398,7 @@ args = info (helper <*> parser) $ mconcat
Right (a, _) -> pure (s, a) Right (a, _) -> pure (s, a)
Left err -> fail ("failed to parse input '" ++ s ++ "': " ++ show err) Left err -> fail ("failed to parse input '" ++ s ++ "': " ++ show err)
readParsec' :: P.Parser a -> ReadM (String, a) readParsec' :: H.SimpleTextParser a -> ReadM (String, a)
readParsec' p = do readParsec' p = do
s <- str s <- str
let parsed = runIdentity $ P.runParserT p "" (pack s) let parsed = runIdentity $ P.runParserT p "" (pack s)