From: Julien Moutinho Date: Wed, 1 Apr 2020 02:23:13 +0000 (+0200) Subject: Fix megaparsec-8 update X-Git-Url: https://git.sourcephile.fr/doclang.git/commitdiff_plain Fix megaparsec-8 update --- diff --git a/src/Textphile/DTC/Read/TCT.hs b/src/Textphile/DTC/Read/TCT.hs index d01e86a..fad1d81 100644 --- a/src/Textphile/DTC/Read/TCT.hs +++ b/src/Textphile/DTC/Read/TCT.hs @@ -223,6 +223,7 @@ p_XMLs p stateInput = do let (st', res) = P.runParser' (S.runStateT (p <* P.eof) s) P.State { P.stateInput = stateInput , P.stateOffset = P.stateOffset st + , P.stateParseErrors = [] , P.statePosState = P.PosState { P.pstateInput = stateInput , P.pstateOffset = P.stateOffset st diff --git a/src/Textphile/TCT/Read/Cell.hs b/src/Textphile/TCT/Read/Cell.hs index b81825a..97ab254 100644 --- a/src/Textphile/TCT/Read/Cell.hs +++ b/src/Textphile/TCT/Read/Cell.hs @@ -82,6 +82,7 @@ runParserOnCell p (Sourced (FileRange inp bp _ep :| path) s) = P.State { P.stateInput = StreamCell s , P.stateOffset = 0 + , P.stateParseErrors = [] , P.statePosState = P.PosState { P.pstateInput = StreamCell s , P.pstateOffset = 0