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

Fix build of hledger-ui with megaparsec-6

Browse Source
This commit is contained in:
Hans-Peter Deifel 2017-08-02 16:45:39 +02:00 committed by Simon Michael
parent e98d213ca2
commit 79e3a29083
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-ui/Hledger/UI/ErrorScreen.hs
View File

@ -17,7 +17,7 @@ import Control.Monad.IO.Class (liftIO)
import Data.Monoid
import Data.Time.Calendar (Day)
import Graphics.Vty (Event(..),Key(..))
import Text.Megaparsec
import Text.Megaparsec.Compat
import Hledger.Cli hiding (progname,prognameandversion,green)
import Hledger.UI.UIOptions
@ -105,7 +105,7 @@ esHandle _ _ = error "event handler called with wrong screen type, should not ha
-- | Parse the file name, line and column number from a hledger parse error message, if possible.
-- Temporary, we should keep the original parse error location. XXX
hledgerparseerrorpositionp :: ParsecT Dec String t (String, Int, Int)
hledgerparseerrorpositionp :: ParsecT MPErr String t (String, Int, Int)
hledgerparseerrorpositionp = do
anyChar `manyTill` char '"'
f <- anyChar `manyTill` (oneOf ['"','\n'])