From 79e3a29083439e272b7dca187b9fd45f7ff393f7 Mon Sep 17 00:00:00 2001 From: Hans-Peter Deifel Date: Wed, 2 Aug 2017 16:45:39 +0200 Subject: [PATCH] Fix build of hledger-ui with megaparsec-6 --- hledger-ui/Hledger/UI/ErrorScreen.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-ui/Hledger/UI/ErrorScreen.hs b/hledger-ui/Hledger/UI/ErrorScreen.hs index 0d297bb3a..778e00217 100644 --- a/hledger-ui/Hledger/UI/ErrorScreen.hs +++ b/hledger-ui/Hledger/UI/ErrorScreen.hs @@ -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'])