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.Monoid
import Data.Time.Calendar (Day) import Data.Time.Calendar (Day)
import Graphics.Vty (Event(..),Key(..)) import Graphics.Vty (Event(..),Key(..))
import Text.Megaparsec import Text.Megaparsec.Compat
import Hledger.Cli hiding (progname,prognameandversion,green) import Hledger.Cli hiding (progname,prognameandversion,green)
import Hledger.UI.UIOptions 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. -- | 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 -- 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 hledgerparseerrorpositionp = do
anyChar `manyTill` char '"' anyChar `manyTill` char '"'
f <- anyChar `manyTill` (oneOf ['"','\n']) f <- anyChar `manyTill` (oneOf ['"','\n'])