Fix megaparsec-8 update

diff --git a/src/Textphile/DTC/Read/TCT.hs b/src/Textphile/DTC/Read/TCT.hs
index d01e86a9c85740452af789b9e5ace3a2cb7a2dba..fad1d81d33e80e909985e86e2a7c50b932a3ab74 100644 (file)
--- 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
        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
                 , 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 b81825a4c1daffc2c492e672d98e22170437f1dd..97ab254252281987d5e604e65e5efaac28987364 100644 (file)
--- 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.State
         { P.stateInput    = StreamCell s
         , P.stateOffset   = 0

+        , P.stateParseErrors = []

         , P.statePosState = P.PosState
                { P.pstateInput      = StreamCell s
                , P.pstateOffset     = 0
         , P.statePosState = P.PosState
                { P.pstateInput      = StreamCell s
                , P.pstateOffset     = 0