From 79705d8b424c02d278a684dc1b61636eecbf3e91 Mon Sep 17 00:00:00 2001 From: Julien Moutinho Date: Wed, 1 Apr 2020 04:23:13 +0200 Subject: [PATCH] Fix megaparsec-8 update --- src/Textphile/DTC/Read/TCT.hs | 1 + src/Textphile/TCT/Read/Cell.hs | 1 + 2 files changed, 2 insertions(+) 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 -- 2.42.0